my %test = (
  (foo => $tmp =~ s/F/Kr/r),
);