@array = (["filename1",1],["filename2",1,2,3],["filename3",3,2]);
@array = sort {$#$b <=> $#$a} @array;
for (@array){
	print $$_[0];
}