sub wordCheck{ 
    my $s  = join  '', sort split'', $_[0];
    my $re = join'.*', sort split'', $_[1];
    return $s =~ $re;
}