$c = "ok 7\n";
$d = "ok 8\n";
-print do foo("ok 1\n","ok 2\n");
+print &foo("ok 1\n","ok 2\n");
print $a,$b,$c,$d,$x,$y;
@c = "ok 17\n";
$d{''} = "ok 18\n";
-print do foo2("ok 11\n","ok 12\n");
+print &foo2("ok 11\n","ok 12\n");
print $a,@b,@c,%d,$x,$y;