sub swap {
  my ($a, $b) = \(@_);
  
  ( $$a, $$b ) = ( $$b, $$a );  
 
  return;
}