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

    my @params = qw(
        name
        address
        pic
        id
        zip
        phone
    );
    my $values = "Your Results are:\n";
    for (@params) {
        $values .= "$args->{$_}\n" if exists $args->{$_};
    }
}