#!/usr/bin/perl -w

 use strict;

 my @one = qw(lots of nice words);
 my @two = qw(red clothes are fun);

 my @two_r = reverse @two;

 my @three;

 if (scalar @one == scalar @two_r) {
     for (my $i=0; $i < scalar @one; $i++) {
         push @three, $one[$i].$two_r[$i];
     }
 }

 print $three[0], "\n";
 print $three[1], "\n";
 print $three[2], "\n";
 print $three[3], "\n";