my $count = <>;
my @numbers;
while( $count-- ) {
  push @numbers, scalar <>;
}
print for sort { $a <=> $b } @numbers;