test perl

#!/usr/bin/perl -w-

my $a = "a";
my ($b, $c) = ('a', 'a');

for my $i (0..2) {
    $b = 'b', $c = 'c', next if ($a eq "a");
    print "$i ..\n";
}

print "$a $b $c\n";