package main;
my @x=Array->new( qw( bb cccc ddd aaaaa fffff qqq xxx iiiii ) )
           ->map('[length($_), $_ ]')
           ->sort('$b->[0] <=> $a->[0] || $a->[1] cmp $b->[1]')
           ->map('pop @$_');

print "@x";