Solved the problem with the statement below, in the $x=~/2005 loop:

if(!defined $save{$first}){
$save{$first}=undef;}
[download]

Thanks Transient, for your time.