#!/usr/local/bin/perl -w
use strict;
# file hello2.pl

my $var = 'world';
my $num = 1;

print "Hello uc $var, I now have ++$num purposes in life!!\n";
print "Hello ", uc $var, " I now have ", ++$num, " purposes in life!!\n";
