$fred = 78 ;
  $fred = d($fred) + $fred ;

  sub d { $_[0] = 10 ; return 1 ; } ;