Am sure others have pointed out relevant solution, which I believe worked. But if I may suggest, what improvement for your "contact_entry" subroutine.
Instead of the way it is presently implemented, why not either do this

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'),
    );
}
[download]

OR this

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

    return %contact_entry;
}
[download]

Make perl and your computer work for you, not the other way round! :)