Select Code to Download

local $/ = "Startpoint"; $temp="abc";
 while(<INFILE1>){ 
...
 $PG{$3}{"$1-$2"}{"$cou"} = $4; 
 $cou++;
 }

my %PG;
my $cou = 0;
...
    
    }

--------------undefined key of my hash---------------
  '' => {
...
                            '' => undef
                          }
                 },