for $user (@users) {
    $message = "Hello $user!";
    ...
};

# should become

for my $user (@users) {
    my $message = "Hello $user!";
};