Language Basics Perl

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