my @arr = @{$_[0]};     # pick array