my %interpolated = ();
foreach (keys %to_interpolate) {
  $interpolated{$_} =  eval "qq/$to_interpolate{$_}/;";
}