Select Code to Download

my %hash = (
        ytd => 1.5,
...
        print "$k => $hash{$k}\n";
}

use List::MoreUtils qw(any);

...
        print "$k => $hash{$k}\n";
}