Perl foreach 循环

foreach var (list) {
...
}

#!/usr/bin/perl
 
@list = (2, 12, 36, 42, 51);
 
# 执行foreach 循环
foreach a (@list){
    print "a 的值为:a\n";
}

a 的值为: 2
a 的值为: 12
a 的值为: 36
a 的值为: 42
a 的值为: 51