This if statement

if ($res =~ /(\d+)\susers/) { $users = $1 } else { next }

is never true so $users is never being set. As you did explicitly initialise it to 0, you are asking print to represent the undef value. So just say $users = 0; before the foreach scan.

Oh, and that next is redundant (or else you may want to consider using last instead.