my $hello = 'World';
my $people = [ qw/Me You Them Us Him Her It/ ];

undef $/;

my $info = <DATA>;

$info = eval "qq($info)";

print $info;

__END__

Hello $hello,

All of you signed up!  You are:

@{$people}

Enjoy!