foreach my $colr (@COLOURS) { chomp $colr; print OUT "\n$phn $colr $title\n"; }