my $a_ref = [1,2,3];    # old style
$a_ref->{x};            ## Not a HASH reference (run time)