Select Code to Download

%hash3 = map {
 $_->{year}.$->{month}.$_->{day}.$_->{hhmm}= $_
...
#or just 
@array3=values %hash3; 
#if you don't care about sorting

 if(!defined $tmp{$k}){

 if(!defined $hash3{$k}){