my $a={'a',1,'b',2,'c',3};
 print for @$a{'a','b'};      # note the extra $