#!/usr/bin/perl

sub BEGIN {
    use warnings;
    use strict 'refs';
    require 5.01;
}
use warnings;
use strict 'refs';

BEGIN {
    $^H{'feature_say'}    = q(1);
    $^H{'feature_state'}  = q(1);
    $^H{'feature_switch'} = q(1);
}
my (%h) = ( 'a', '1', 'b', '2' );
my (@h) = ( 100, 200, 300 );
my $h   = 10;
*all = \%h;
*all = \@h;
*all = \$h;
say ${ *all; }{'a'};
say ${ *all; }[0];
say ${ *all; };