&tellRoom($objects[$me]{"location:},$me,$objects[$me]{"name"} "rolled $value.");
#                                ^ Quote missing?           
#                                       ^ Quote missing? or   ^ Comma missing?

##</code><code>##

#!/usr/bin/perl -w
use strict;
my @objects = ();
my $me = 1;
$objects[$me] = { name = 'merrie' };

sub tellRoom {
    my ($room,$user,@msg) = @_;
    print "In $room: @msg\n";
};

sub hello {
    my ($me,) = @_;
    tellRoom("Here",$me,"$objects[$me]{name} says 'hello'." );
};

hello();