#!/usr/bin/env perl -l

use strict;
use warnings;
use Data::Dump;

my @unordered = (
    { id => 12, rownum => 1, rank => 27 },
    { id => 31, rownum => 3, rank => 72 },
    { id => 45, rownum => 5, rank => 54 },
);

my @ordered = sort { $b->{rank} <=> $a->{rank} } @unordered;

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