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

##</code><code>##

@array = my ($file, $recordID, $M, $owner, $pid, $userID, $tty, $time, $month, $day, $locker) = split;