>>186
なんかおかしいよな(´･ω･`)

my %prohibit = map +($_, 1), qw|XXX YYY ZZZ|;
my @keep;

for my $value (<DATA>){
　push @keep, $value unless exists prohibit{$value};
}
exit;

__END__
AAA
GGG
ZZZ
YYY
ZZZ
XXX
HHH