13 { my($a,$c) = ("ok 9\n", "ok 10\n"); ($x, $y) = ($a, $c); }
23 print &foo("ok 1\n","ok 2\n");
25 print $a,$b,$c,$d,$x,$y;
27 # same thing, only with arrays and associative arrays
34 { my($a,@c) = ("ok 19\n", "ok 20\n"); ($x, $y) = ($a, @c); }
44 print &foo2("ok 11\n","ok 12\n");
46 print $a,@b,@c,%d,$x,$y;
50 if (my $i = "inner") {
51 print "not " if $i ne "inner";
55 if ((my $i = 1) == 0) {
59 print "not" if $i != 1;
64 while (my $i = --$j) {
65 print("not "), last unless $i > 0;
68 print("not "), last unless $i > 0;
73 for (my $i = 0; (my $k = $i) < $j; ++$i) {
74 print("not "), last unless $i >= 0 && $i < $j && $i == $k;
77 print "not " if defined $k;
80 foreach my $i (26, 27) {
84 print "not " if $i ne "outer";