use strict; use warnings; my @srcDirs = ("newDir1", "newDir2"); for my $SRC_DIR (@srcDirs) { print "Source dir: '$SRC_DIR'\n"; } #### Source dir: 'newDir1' Source dir: 'newDir2'