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 >