#! /usr/bin/perl env

use strict; 
use warnings; 

my $hash;
while(my $line = <DATA>)
{
	my ($key, $val)=split(':',$line);
	$hash = ini($key,$val);

}

foreach (keys %$hash)
{
	print "$_\n";
}

sub ini
{
	my ($key,$val)=@_;
	my %ini_hash;
	$ini_hash{$key}=$val;
	return \%ini_hash;
}
__DATA__
Name: Sam
Address: Mascot
Ph.No: 123321