my $inFile = q{spw623147.txt};
open my $inFH, q{<}, $inFile
   or die qq{open: $inFile: $!\n};