programming-examples/perl/Statement/$_ takes the place of the control variable.pl

foreach ( 'A ', 'J ', 'S ', 'D ' ) {
   print "$_";
}