#! /usr/bin/perl env
use strict;
use warnings;
use Data::Dumper;

my %record;
while (my $line = <DATA>) {
    chomp $line;
    
    my ($key, $val) = split /:\s*/, $line, 2;

    $record{$key} = $val if defined $val;
}

print Dumper (\%record);

__DATA__
Name: Sam
Address: Mascot
Ph.No: 123321

##</code><code>##

$VAR1 = {
          'Ph.No' => '123321',
          'Address' => 'Mascot',
          'Name' => 'Sam'
        };