Select Code to Download

  sort_arrayref( $data, -compare=>'numeric', sub { substr (shift)->[0]
+, 2 }, 3 )

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