Help for this page
while () {
while (<USERS>) {
$j, $j, $j, $j, $j, $month, $date, $time, $uname) = split;
($month, $date, $time, $uname) = (split)[5..8];