12345678
foreach my $ref (sort { $b->[3] <=> $a->[3] } @bigarray){ foreach my $cell (@{$ref}) { print "$cell;" } print "\n";}