@phones=qw(iph1 iph2 iph3); @colors=qw(blue green red); foreach $phn (@phones) { foreach $colr (@colors) { print "\n$phn $colr"; } print "\n==="; }