if ( join('', sort split(//, $word)) eq join('', sort split(//, $to_be_matched)) ) {