sub enormously_complex_compare {
    $a->{platformid} <=> $b->{platformid}  # numeric?
    or 
    $a->{da} cmp $b->{da} 
    or 
    $a->{ma} cmp $b->{ma} 
    or 
    $a->{os} cmp $b->{os} 
    or 
    $a->{cc} cmp $b->{cc} 
    or 
    $a->{objecttype} <=> $b->{objecttype}  # numeric?
    or 
    $a->{host} <=> $b->{host}  # numeric?
    or 
    $a->{size} <=> $b->{size}  # ??? comparing array references ???
    }

my @array3 = sort enormously_complex_compare @array1;
my @array4 = sort enormously_complex_compare @array2;
...