my %hash = (
        ytd => 1.5,
        mtd => 2.0,
        wtd => 2.5,
        Jumbo_Tron => "United Center",
        Meat_Pie => "Gross",
        "Word" => "Association",
        );
my @do_not_want = qw{ ytd mtd wtd };

foreach my $k (keys %hash) {
        next if scalar grep { m/$k/ } @do_not_want;
        print "$k => $hash{$k}\n";
}