sub fubar {
  ${$_[0]} = 4;
  print "${$_[0]}\n";
}