use List::MoreUtils qw(lastval pairwise);

my @array = (
	['blah', 'asdf', 'foo', 'bar'],
	['two'],
	['zzz', 'def', 'ghi'],
	['one'],
	['mmm', 'def', 'ghi'],
	['qqq', 'xyz', 'aaa'],
);

@array = sort {@$a <=> @$b or lastval {$_} pairwise {$a cmp $b} @$a, @$b} @array;

use Data::Dump;
dd \@array;