Select Code to Download

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

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

$VAR1 = [
          [
...
            'Ned'
          ]
        ];

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