my $foo = [ [5,1],
            [4,2],
            [3,3],
            [2,4],
            [1,5]];

my @bar = sort {$foo->{$a} cmp $foo->{$a} } @$foo;
# should be my @bar = sort {$a[0] cmp $b[0]} @$foo;