#!/usr/bin/perl@colors=(red, green, blue, brown);foreach (@colors) { print "$_ "; $_="YUCKY";}print "\n@colors\n";