$saved_info = $fileinfo{$_} ||= []; push @$saved_info,\@filedata; #### push @{ $fileinfo{$_} }, \@filedata;