$ perl -MO=Deparse,p -e 'for(@z){print}'
foreach $_ (@z) {
    print $_;
}
-e syntax OK