my %user = ('Mouse'=>'Mickey', 'Spears'=>'Britney' .. more, see below); 
for my $lname (keys %user) { 
my $mail = "$user{$lname}.$lname\@acompany.com"; 
&add_user($dbh, $user{$lname}, $lname, $mail); 
}