my ($user, $pass, $mail) = qw(root $ecret someone@somewhe.re);