use strict;
use warnings;

my $data={}; #declare an anonymous hash

while(<DATA>){
              chomp;
              my ($key, $val)=split /\s*=\s*/;
              $data->{$key}=$val;
              }


print "name=>", $data->{name},"\n";
print "ip=>", $data->{ip},"\n";


##View the data structure##

use Data::Dumper;
print Dumper($data);
__DATA__
name = "varun"
ip = "9.12.23.222";