@data = sort { substr ($a->[0], 2) <=> substr ($b->[0], 2) ||
                           $a->[3] <=> $b->[3] } @data;