#!/usr/bin/perl use strict; use warnings; my @array = qw( A B C D E ); my %hash = ( A => "AA", B => "BB", C => "CC", D => "DD", E => "EE" ); my $arrayReference = \@array; my $hashReference = \%hash; sub returnReference { return \@array; } print( "\$arrayReference->[ 1 ] = $arrayReference->[ 1 ]\n" );