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 >