sort_arrayref( $data, -compare=>'numeric', -extract=>'compound', 
                 [ index => 0, substr => 2 ], [ index => 3 ] )