open FH, $file1;
while (chomp($line = <FH>)){
       $line =~ s/"//g;
       ($key,$ytd{$key}->{oct01}) = split(',',$line);
       }
close FH;

##</code><code>##

open FH, $file1;
while (chomp($line = <FH>)){
       $line =~ s/"//g;
       ($key,$temp) = split(',',$line);
       $ytd{$key}->{oct01} = $temp;
       }
close FH;