#!/usr/bin/perl

sub doubleary {
    local(*someary) = @_;
    foreach $elem (@someary) {
	$elem *= 2;
    }
}

&doubleary(*foo);
&doubleary(*bar);
