use Data::Dumper;
$abc = "Mouse=>Jerry, Cat=>Tom, Dog=>Spike";
my %hash = eval( "( $abc )" );
print Dumper(\%hash);