#!/usr/bin/perl -w

use strict;

my @nouns=qw(Roses Violets Perl And);
my @assoc=qw(red blue pink you);
my $i=0;

foreach my $item (@nouns) {
	print $item, (($item=~/s$/) ? " are " : 
		(($item=~/and/i) ? " so are " : " is ")), 
		$assoc[$i], (($item=~/and/i) ? " :-)\n" : ",\n");
	$i++;
}