Select Code to Download

open FH, $file1;
while (chomp($line = <FH>)){
...
       ($key,$ytd{$key}->{oct01}) = split(',',$line);
       }
close FH;

open FH, $file1;
while (chomp($line = <FH>)){
...
       $ytd{$key}->{oct01} = $temp;
       }
close FH;