my @Array = (
    [1, 5],
    [6, 2],
    [3, 4],
    [3, 9],
    [8, 1],
);

@Array = sort {
    $a->[0] <=> $b->[0] or $b->[1] <=> $a->[1]
} @Array;



##</code><code>##


foreach @Elements (@Array) { 
   print @Elements[0]."x".@Elements[1];
}