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

my %hoa = (names => ['joe', 'bob', 'sally']
           );

print join ", ", @{$hoa{names}};