Select Code to Download

my @array1 = (
 {'platformid' =>  '22', ... },
...
...;
my $rc = Compare(\@ordered_array1, \@ordered_array2);
...;

my @array1 = (
 {'platformid' =>  '22', 'some' => 'stuff', ... },
...
 {'platformid' =>  '22', 'other' => 'things', ... },
 ...,
 );

my @array3 = sort { 
    $a->{platformid} cmp $b->{platformid} 
...
    or 
    $a->{size} cmp $b->{size} 
    } @array1;

sub enormously_complex_compare {
    $a->{platformid} <=> $b->{platformid}  # numeric?
...
my @array3 = sort enormously_complex_compare @array1;
my @array4 = sort enormously_complex_compare @array2;
...