sub fake_readonly {
  $_[0] = $_[1];
}