>perl -wMstrict -le
"my @hash_ref = ({ qw(a 1  b 2) }, { qw(c 3  d 4) });
 ;;
 print keys   %{ $hash_ref [-1] };
 print values %{ $hash_ref [-2] };
"
cd
12