@array = (10,20); Double(*array); sub Double { local *copy = shift; foreach my $element (@copy) { $element *=2; } } [download]
In reply to use of typeglob aliases by fionbarr