Language Basics Perl

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