my @firstArray = qw/foo bar baz/;
my @results = grep @$_,
              map [reverse grep length, split /:/],
              glob join ":",
              map "{,$_}",
              reverse @firstArray;