while (<>)
{
    chomp;
    $ref = [ split ];     # new anon.array every iteration
    $user = shift @$ref;
    $cluster{$user} = $ref;
}