#!/usr/bin/perl

use strict;

sub bob {
  map { print "$_$/" } @_;
}

my @thing = qw(tom dick harry);

bob(@thing);

print "============$/";

my @results = bob(@thing);

print "We printed " . (scalar @results) . " items$/";