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