Help for this page
@array = map { my ($file, $recordID, $M, $owner, $pid, $userID, $tty, +$time, $month, $day, $locker) }= split;
@array = my ($file, $recordID, $M, $owner, $pid, $userID, $tty, $time, + $month, $day, $locker) = split;