in reply to Numerically sorting array items containing delimited strings

How about: 
{
  local $^W;
  # or, in a recent version of Perl, no warnings;
  @records = sort { $b <=> $a } @records;
}

[download]

In Section Seekers of Perl Wisdom