#!/usr/bin/env perl 
use strict;
use warnings;

my @foo = ('dog', 'bites', 'man', 'bites', 'dog');
printf "scalar = '%s'\n", scalar @foo;
printf "join = '%s'\n",   join ' ', @foo;