use warnings;
use strict;

my $info = send_values({
    name    => 5,
    address => 6,
    id      => 7,
    pic     => 8,
});

print $info;


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

    my @params = qw(
        name
        address
        pic
        id
        zip
        phone
    );
    my $values = "<results>\n";
    for (@params) {
        $values .= "      <$_>$args->{$_}</$_>\n" if exists $args->{$_};
    }
    $values .= "</results>\n";
    return $values;
}


__END__

<results>
      <name>5</name>
      <address>6</address>
      <pic>8</pic>
      <id>7</id>
</results>

##</code><code>##

        $values .= "      <address>$args->{address}</address>\n" if exists $args->{address};