Someone

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" ;
.
.
.
}