my $base = join '', sort split //, lc $word;
while ( my $foo = <INFILE> ) {
   print $foo if ( join '', sort split //, lc $foo eq $base );
}