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

}