Help for this page
sub entrada { ... return $in; }
print join("\t", @contact{qw(name lastName email address phone)});