Created by www.tryperl.com.

Hello World.pl

use strict;
use warnings;

my @words = qw(good bad ugly great awesome lovely dumb);

foreach my $word (@words) {
    printf "This is %s!\n", $word
}