@array = qw(This is a list of words without interpolation);

​

foreach $key (@array) {

   print"Key is $key\n";

}