my $datastring =slurp $file;
tie %h, "CollisionHash";
eval "\%h = $datastring"