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); 
} 


##</code><code>##

sub user_list {
	my ($db_ref) = @_;
	my $users = $db_ref->selectall_arrayref("SELECT last_name, first_name from user") or die "$!\n";
	return $users;
}


##</code><code>##

$VAR1 = [
          [
            'Mouse',
            'Mickey'
          ],
          [
            'Spears',
            'Britney'
          ],
          [
            'Lohan',
            'Lindsey'
          ],
          [
            'Martin',
            'Ricky'
          ],
          [
            'Burns',
            'Jeremy'
          ],
          [
            'Smithers',
            'Erwin'
          ],
          [
            'Simpson',
            'Homer'
          ],
          [
            'Flanders',
            'Ned'
          ]
        ];


##</code><code>##

Can't use string ("4052") as a symbol ref while "strict refs" in use at H:\script\office.pl line 13.