2:29 >perl -MData::Dump -wE "my @array = (10, 20); Double(*array); dd @array; sub Double { local *copy = shift; for my $element (@copy) { $element *= 2; } }"
Name "main::array" used only once: possible typo at -e line 1.
(10, 20)

 2:29 >

##</code><code>##

 2:29 >perl -MData::Dump -wE "my @array = (10, 20); Double(\@array); dd @array; sub Double { my $array_ref = shift; for my $element (@$array_ref) { $element *= 2; } }"
(20, 40)

 2:30 >