my $to_be_matched = 'tab';
my $word = 'bat';
if ( join '', sort split(//, $word) eq 
     join '', sort split(//, $to_be_matched ) ) {
   # Success!
} else {
   # Failure
}