sub anagram_part {
my ( $str, $substr ) = @_;
my @str = split //, $str;
my @substr = split //, $substr;
L: while ( @str && @substr ) {
my $cl = shift @substr;
while ( my $c = shift @str ) {
goto L if $cl eq $c;
}
return 0;
}
return 0 if scalar @substr;
return 1;
}