%hash = qw( a 1 b 2 c 3 );
@array = (1,2,4,8);

$x = $hash{z};    # no auto-viv
$x = $array[10];  # no auto-viv

1 for $hash{y};   # auto-viv
1 for $array[7];  # auto-viv