Help for this page
$saved_info = $fileinfo{$_} ||= []; push @$saved_info,\@filedata;
push @{ $fileinfo{$_} }, \@filedata;