sub send_values {
    my ($args) = @_;
    my $values = "Your Results are:\n";
    $values = join '',
      map { exists $args->{$_} ? $args->{$_} . "\n" : () }
      qw( name address pic id zip phone );

    # do whatever it is you want to do with $values.
}