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