#! /usr/bin/perl
use strict ;
use warnings;

my @days=qw(mon tues wed thurs fri sat sun);
my @cols=qw(red orange yellow green blue indigo violet);

foreach (@days ){
	 tr/e/E/;
	print "$_\n";
}
foreach (@cols){
	tr/e/E/;
	print "$_\n";
}