#!/usr/bin/perl
use strict;
use warnings;

print "Type in a number.";
chomp(my $n1 = <>);

print "Type in another number.";
chomp(my $n2 = <>);

print "Type in another number.";
chomp(my $n3 = <>);

print "Type in another number.";
chomp(my $n4 = <>);

print "Type in another number.";
chomp(my $n5 = <>);

print "$_\n" for sort { $a <=> $b } ($n1,$n2,$n3,$n4,$n5);