Hello World

#!/usr/bin/perl
use strict;
my @words=('let','the','fun','begin');
foreach (@words) { if ($_ ne 'begin') { print "$_ "; } else { print "$_"; } }
print "!\n";