while((my $line=<EXP>)=~/\S/)
{
	chomp($line);
	(my ($k), my ($v))=split('=>', $line);
	$k=~s/\s//;
	$v=~s/\s//;
	$experimental_hash{$k}=$v;
}