% cat opcode-hslice
#! /usr/bin/perl -w
use strict;
my %h;
@h{ qw/alpha bravo/ } = ( 'foo', 'bar' );

% perl -MO=Terse opcode-hslice # 5.6.1
    BINOP (0x819f8e0) aassign [2]
        UNOP (0x81b3dc0) null [141]
            OP (0x81a7868) pushmark
            SVOP (0x819c720) const  PV (0x8131440) "foo"
            SVOP (0x819c740) const  PV (0x8131434) "bar"
        UNOP (0x81b3e00) null [141]
            OP (0x81a37e8) pushmark
            LISTOP (0x8126360) hslice
                OP (0x81a7850) pushmark
                LISTOP (0x8126060) list
                    OP (0x81a79e8) pushmark
                    SVOP (0x8126240) const  PV (0x812eb8c) "alpha"
                    SVOP (0x81262a0) const  PV (0x8124224) "bravo"
                OP (0x819d128) padhv [1]

% perl -MO=Terse opcode-hslice # 5.005_03
    BINOP (0x80d4f30) pp_aassign [3]
        UNOP (0x80d4e00) pp_null [141]
            OP (0x80d4e28) pp_pushmark
            SVOP (0x8144de8) pp_const  PV (0x80d1f30) "foo"
            SVOP (0x80d4de0) pp_const  PV (0x80d1f48) "bar"
        UNOP (0x80d4ee8) pp_null [141]
            OP (0x80d4f10) pp_pushmark
            LISTOP (0x8144da0) pp_hslice
                OP (0x8144dc8) pp_pushmark
                LISTOP (0x80d5520) pp_split [2]
                    PMOP (0x81360b8) pp_pushre /\s+/
                    SVOP (0x80d54e0) pp_const  PVIV (0x80d1f90) "alpha bravo"
                    SVOP (0x80d5500) pp_const  IV (0x80d1f0c) 0
                OP (0x80d54c0) pp_padhv [1]