9 use vars qw(@array @r $k $v);
13 @array = qw(crunch zam bloop);
19 ($k, $v) = each @array;
22 ($k, $v) = each @array;
36 my ($k, $v) = each @array;
43 my @lex_array = qw(PLOP SKLIZZORCH RATTLE PBLRBLPSFT);
45 (@r) = each @lex_array;
49 ($k, $v) = each @lex_array;
51 is ($v, 'SKLIZZORCH');
52 ($k) = each @lex_array;
56 my ($k, $v) = each @lex_array;
58 is ($v, 'PBLRBLPSFT');
60 (@r) = each @lex_array;
74 is (scalar each @$ar, undef);
78 is ("@keys", "0 1 2");
80 @keys = keys @lex_array;
81 is ("@keys", "0 1 2 3");
87 is ("@keys", "1 2 3");
89 @keys = keys @lex_array;
90 is ("@keys", "1 2 3 4");
93 ($k, $v) = each @array;
98 is ("@keys", "0 1 2");
100 ($k, $v) = each @array;
107 @values = values @array;
108 is ("@values", "@array");
110 @values = values @lex_array;
111 is ("@values", "@lex_array");
116 @values = values @array;
117 is ("@values", "@array");
119 @values = values @lex_array;
120 is ("@values", "@lex_array");
123 ($k, $v) = each @array;
127 @values = values @array;
128 is ("@values", "@array");
130 ($k, $v) = each @array;