Statement Perl

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