Try this :

foreach my $user ( @{$users_ref} ) {
    my $to = $user."@".$domain;
    # my $from = $user->[0]."@".$domain; # wrong 
    my $from = $users_ref->[0]."@".$domain; # correct
..
[download]

poj