Select Code to Download

#!/usr/bin/perl
use strict;
...
    foreach my $lastname(sort keys %nme) {
        print "$lastname, $nme{$lastname}\n";
    }