...
my $info = send_values(
                           {
                             name   => $name,
                             address    => $address,
                             id  => $id,
                             pic         => $pic,
                 }
               );
...

##</code><code>##

...
sub send_values{
  
  my ($args) = @_;

  #test:
  my $values = "Your Results are:\n
                $args->{name}\n
                $args->{address}\n
                $args->{pic}\n
                $args->{id}\n
                $args->{zip}\n
                $args->{phone}\n
               ";

}