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>##

#!/usr/bin/perl
use strict;

my $myfile = $ARGV[0];
open FILE, "<", $myfile || die "No open $!\n";

my %hash;

while (<FILE>)
{
   chomp;
   my ($key, $val) = split /:/;
   $hash{$key} .= exists $hash{$key} ? ",$val" : $val;
}
foreach my $key (keys %hash) { 
	print "$key = $hash{$key}\n";
} 

##</code><code>##

User:
User1
111 address lane
555-555-5555

User:
User2
222 address lane 2
777-777-7777

##</code><code>##

$hash{$x}= {
    Name => $name,
    Addr => $address,
    Phone => $phone