use Data::Dumper; print Dumper(+{ unsorted => \@array });
@array = sort {
  for my $i (0 .. $#a) {
      if (not ($$a[$i] == $$b[$i])) {
          return $$a[$i] <=> $$b[$i];
      }
  }
  return 0;
} @array;
use Data::Dumper; print Dumper(+{ sorted => \@array });