Select Code to Download

#!/usr/bin/perl -w

...
}

untie %hash;

#!/usr/bin/perl -w

...
foreach my $k (sort keys %hash) {
    printf "%d => %d\n", length($k), length($hash{$k});
}