Select Code to Download

while (my $ptfkey = <F2>)

while (<F2>) {
    $ptfkey = $_; # you can skip this using above suggestion
...
    $ptfpn =~ m/^([\d\-\.]+)/; # if it's a float
    $F1hash{$1} = 1;
    }

if ($PartNumber =~ $Flhash{$PartNumber}) {

if (exists $F1hash{$PartNumber}) {

#!c:\perl\bin\perl -w
# note the addition of the -w

use diagnostics;
use strict;