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