my $inFile = 'spw623147.txt';
open my $inFH, '<', $inFile or die "open: $inFile: $!\n";