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