my @do_not_want = qw{ ytd mtd wtd };
my %rejects;

@rejects{@do_not_want} = ();

foreach my $anything_but ( grep {! exists $rejects{$_}} keys %hash ) {
    print $anything_but . "\n";
}

##</code><code>##

Meat_Pie
Jumbo_Tron
Word