$a->[0] and $h->{first}
[download]

or

$$a[0] and $$h{first}
[download]

Look at perlref.

      
--------------------------------
SV* sv_bless(SV* sv, HV* stash);