my @n;
while (@n < 5) {
   if (@n) {
      print "Type in another number: ";
   } else {
      print "Type in a number: ";
   }

   chomp( my $n = <STDIN> );
   push @n, $n;
}

print "$_\n" for sort { $a <=> $b } @n;