Select Code to Download

my %hash = map {($_ => undef)} <>;
print sort keys %hash;

my $prev=<>;
my $count=1;
...
}
printf "%4d %s", $count, $prev;