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