my @items= (
'Item3 - 1 foo, 3 bar',
'Item1 - 2 foo, 2 bar',
'Item4 - 1 foo, 2 bar',
'Item2 - 0 foo, 1 bar'
);

my @sorted = reverse sort map{scalar reverse $_}@items;


print scalar reverse $_ . "\n" foreach @sorted;