sub h { $_[0] = 1 ; return '!' ; } ; 
  $x = 0 ;
  $a[$x] = h($x) ;      # $a[0] = '!'  or  $a[1] = '!' ??