%hash = ("filename1" => [1], "filename2" => [1,2,3], "filename3" => [3,2]);
@sortedkeys = sort {$#{$hash{$b}} <=> $#{$hash{$a}} } keys (%hash);
print @sortedkeys;