#!/usr/bin/perl -w
use strict;

my @stuff = ('program','think','live','strive','long','search','find','see','hear','PERceive Love');
my $pithy_saying = "I think therefore I am.";
my $space = " ";

foreach my $x (@stuff) {
  my $sweet_nothing = substr($pithy_saying, 0, 20);
  $sweet_nothing = $space . $sweet_nothing . $x . ".";
  print $sweet_nothing,"\n";
  $space = $space . " ";
}