use strict;
    use Data::Dumper;
    
    my %cluster;
    
    while (<DATA>) {
        chomp;
        my @ary = split;
        my $user = shift @ary;
        $cluster{$user} = \@ary;
    }
    
    print Dumper \%cluster;
    __DATA__
    bob's your uncle
    Ovid is in da house

##</code><code>##

    #!/usr/bin/perl
    $foo = "bar";
    {
        my $foo = "something else";
        print "$foo\n";
    }
    print "$foo\n";