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

##</code><code>##

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