sub entrada
{
    my    ($var) = shift;
    print "Ingrese $var: ";
    my     $in   = <STDIN>;
    chomp  $in;    # <== Add this
    return $in;
}


##</code><code>##

print join("\t", @contact{qw(name lastName email address phone)});