@array = (10,20);
Double(@array);
print "@array";

sub Double {
foreach my $element (@_) {
$element *=2;
}
}