RosettaCodeData/Task/Pointers-and-references/Perl/pointers-and-references-3.pl

 my $scalarref = \'a scalar';
 my $arrayref = ['an', 'array'];
 my $hashref = { firstkey => 'a', secondkey => 'hash' }