#! /usr/bin/perl
@days=qw(mon tues wed thurs fri sat sun);
@cols=qw(red orange yellow green blue indigo violet);
@vars=( @days, @cols);
s/e/E/g for @vars;
foreach (@vars) {
	print "$_\n";
	}
print "@days\n";
print "@cols\n";