use v5.10;

say for sort { $a <=> $b }
  map { chomp( my $i = <> ); $i } 1 .. <>;

##</code><code>##

print for sort { $a <=> $b }
  map { scalar <> } 1 .. <>;

##</code><code>##

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