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

##</code><code>##

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