#!/usr/bin/perl
use strict;
use warnings;

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

my @list = do {
        my $max_array = 0;
        my $max_word = 0;
        for (@input) {
            $max_array = @$_ if @$_ > $max_array;
            for (@$_) {
                $max_word = length if length > $max_word;
            }
        }
        my $digit = 1 + int log($max_array)/log(10);
        my $format = "%$digit.d" . ("%-${max_word}s") x $max_array;
        my %cache = map {$_ => sprintf $format, 0+@$_, reverse(@$_), ('') x $max_array} @input;
        sort {$cache{$a} cmp $cache{$b}} @input;
    };

$" = "', '";
print "['@$_']\n" for @list;