sub contact_entry {

    return (
        name          => entrada('Name'),
        lastName      => entrada('Last Name'),
        address       => entrada('Address'),
        email         => entrada('Email'),
        phone         => entrada('Phone Number'),
        image         => entrada('Image Profile'),
        detailProfile => entrada('Detail Profile'),
    );
}

##</code><code>##

sub contact_entry {
    my %contact_entry;
    for (qw(name last_name address email phone_number image detail_profile)) {
        my $data = /_/
          ? join ' ' => map { ucfirst $_ } split /_/,
          $_
          : ucfirst $_;
        $contact_entry{ $_ } = entrada($data);
    }

    return %contact_entry;
}