Select Code to Download

#!/usr/bin/perl
use warnings;
use strict;
...
while (my ($key, $value) = each %found) {
        print "$key has \t $value instance(s) of \t \"$find\"\n";
}