##
for () {
chomp;
print "$_: all in m8\n" if /.*x.*y.*z.*/;
}
__DATA__
foo
xoo
fyo
foz
xyo
fyz
xyz
##
##
my %hash = ( x => 1, y => 1, z => 1 );
for () {
chomp;
my $in = 0;
my %hash = ( x => 1, y => 1, z => 1 );
for my $x (split //, $_) {
delete $hash{$x} and $in++;
}
print "$_: all in m8\n" if $in == 3;
}