E:\>perl -MO=Deparse -e "for( [1..10] ){ print $_ }"
foreach $_ ([(1, 2, 3, 4, 5, 6, 7, 8, 9, 10)]) {
    print $_;
}
-e syntax OK