It nearly does if you put the print in the loop:

@monks = ('Suaveant', 'iakobski', 'merlyn', 'boo_radley');
while (<>) {
     foreach (@monks) {
         chop;
         print;
     }
}
[download]

then you get Suaveaniakobskmerlyboo_radle

iakobski