How to print 'AND' between array elements?

Question

If I have an array with name like below.

How do I print "Hi joe and jack and john"?

The algorithm should also work, when there is only one name in the array.

#!/usr/bin/perl

use warnings;
use strict;

my @a = qw /joe jack john/;

my $mesg = "Hi ";

foreach my $name (@a) {

    if ($#a == 0) {
    $mesg .= $name;
    } else {
    $mesg .= " and " . $name;
    }
}

print $mesg;

Answer 1

Usually we use an array join method to accomplish this. Here pseudo code:

@array = qw[name1 name2 name2];
print "Hey ", join(" and ", @array), ".";