#!perl
use strict;
use warnings;
use Test::More tests => 1;
use syntax 'each_on_array';
my @a = (qw/a b c/);
my $s = "";
while (my ($i, $e) = each @a) {
$s .= $i . $e;
}
is($s, "0a1b2c");
#!perl
use strict;
use warnings;
use Test::More tests => 1;
use syntax 'each_on_array';
my @a = (qw/a b c/);
my $s = "";
while (my ($i, $e) = each @a) {
$s .= $i . $e;
}
is($s, "0a1b2c");