Select Code to Download

use strict;

...
    next unless scalar @{$Counter{$k}};
    print "$key found on lines @{$Counter{$k}}\n";
}