I hate testing for the same condition twice in a row, as you did.

while ( ... ) {
   my $fh;
   if (!open($fh, '<', $inputFile)) {
      warn( "Unable to open analysis file $inputFile: $!\n" );
      next;
   }
 
   ...
}
[download]