#!/usr/bin/perl
use strict; use warnings;
while (<>) { # 파일 열어, 한 줄씩 읽기
chomp; # 개행 문자 제거
s/^\s+//; # 좌측에 공백 있으면 제거
s/\s+$//; # 우측에 공백 있으면 제거
push @_, $_ unless $_ eq ""; # (빈 문자열이 아닌 이상) 배열에 추가
}
@_ = sort {$a <=> $b} @_; # 숫자 크기순으로 소트
print "$_\n" foreach (@_); # 화면에 결과 출력