perl foreach 循环

@var=  (glob "*.pl") ;
foreach $_ (@var){
print "$_ ";
}