Rather than use boring names like "item1", "item2", etc., there are traditional metasyntactic variables to use in examples (with several different schools of tradition).

Just for fun:

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