my $str = 'aaa';
for my $alias (main::, 'main', $mainstring, $mainobj) {
  $alias->$symref($str++);
  }