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;
}