($user, $fred, $hair, $thing) = split ...

##</code><code>##

($user1, $user2, $user3, $user4) = split ...