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

 # start with some var definitions
 my $scalar = 'aa';
 my @array = ('bb', 'cc');
 my %hash = ( dd => 'DD', ee => 'EE' );

 # make references
 my $scalarref = \$scalar;
 my $arrayref = \@array;
 my $hashref = \%hash;