Select Code to Download

#!/usr/bin/env perl
...
for my $s (keys %sizes_matched){
    print "$sizes_matched{$s} => $s\n";
}