Lines Matching refs:ary
11 my (@ary, %ary, %hash);29 @ary = ("1arg");30 $a = pop(@ary);32 $a = pop(@ary);35 @ary = ("1arg");36 $a = shift(@ary);38 $a = shift(@ary);41 $ary{'foo'} = 'hi';42 ok defined($ary{'foo'});43 ok !defined($ary{'bar'});44 undef $ary{'foo'};45 ok !defined($ary{'foo'});