Select Code to Download

    # sort numerically descending
    @articles = sort {$b <=> $a} @files;

#!/usr/bin/env perl -l

...
dd \@unordered;
print 'Ordered:';
dd \@ordered;

Unordered:
[
...
  { id => 45, rank => 54, rownum => 5 },
  { id => 12, rank => 27, rownum => 1 },
]