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

foreach my $k (keys %hash) {
        next if exists $do_not_want{$k};
        print "$k => $hash{$k}\n";
}