All the Perl that's Practical to Extract and Report
Also, I forgot to mention. Before you create a new array, read up on List::MoreUtils.Tassilo++