sub save { . . . @packages=$query->param('packages') ; $line_type=$query->param('line_type') ; $active=$query->param('active') || 0 ; $did=$query->param('did') ; $redirect_did=$query->param('redirect_did') ; $redirect_expiry=$query->param('redirect_expiry') ; $utils->saveCustomerServiceDetail($id,$account,$note,$street,$city,$province,$postal_code,$country,\@packages,$line_type,$active,$did,$redirect_did,$redirect_expiry) ; return detail_picker($self,$errors) ; } sub saveCustomerServiceDetail { my $self=shift ; my $id=shift ; my $account=shift ; my $note=shift ; my $street=shift ; my $city=shift ; my $province=shift ; my $postal_code=shift ; my $country=shift ; my $package_ref=shift ; my $line_type=shift ; my $active=shift ; my $did=shift ; my $redirect_did=shift ; my $redirect_expiry=shift ; my $package_string=join " ", @{$package_ref} ; print STDERR "package_string=$package_string\n" ; . . . }