Statement Perl

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