Select Code to Download

use strict;
use warnings;
...
  $hash{$line} = $text;
}
print $hash{$_} . "\n" for (sort keys %hash)

perl pm1.pl < input.txt > output.txt

use strict;
use warnings;
...
  $array[$2] = 1 if ($_ =~ m/(.+)(\d+)$/)
}
print defined $_ ? $_ . "\n" : "\n" for @array[1..$#array];