Select Code to Download

#!/usr/bin/perl
use strict;
...
chomp(my $n5 = <>);

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