Help for this page

Select Code to Download

Select or download this

while (<>)
{
    chomp;
...
    $user = shift @$ref;
    $cluster{$user} = $ref;
}