Select Code to Download

my @new_array = ();
foreach my $element (@array) {
    my @temp = unpack("A A8 A1A10 A12", $element);
    push @new_array, \@temp;
}

my @sorted_array = sort { $a->[1] <=> $b->[1] ||
                                   $a->[3] <=> $b->[3] } @new_array;