#!/usr/local/bin/perl
use strict;
use Data::Dumper;
my %hash;
my $counter = 0;

until(eof(DATA)){
        chomp (my $fullName = <DATA>);
        my ($name, $val1) = split /\s+:\s+/,$fullName;
        chomp (my $homeAddr = <DATA>);
        my ($addr, $val2) = split /\s+:\s+/,$homeAddr;
        chomp (my $phoneNo = <DATA>);
        my ($phone, $val3) = split /\s+:\s+/,$phoneNo;
        $hash{"user".++$counter} = {$name=>$val1, $addr=>$val2, $phone=>$val3};
        }
        
print Dumper(\%hash);
__DATA__
FullName        : User1
Home Address        : 111 address lane
Phone            : 555-555-5555
FullName        : User2
Home Address        : 222 address lane 2
Phone            : 777-777-7777

##</code><code>##

$VAR1 = {
          'user1' => {
                       'Phone' => '555-555-5555',
                       'Home Address' => '111 address lane',
                       'FullName' => 'User1'
                     },
          'user2' => {
                       'Phone' => '777-777-7777',
                       'Home Address' => '222 address lane 2',
                       'FullName' => 'User2'
                     }
        };

##</code><code>##