#!/usr/bin/perl 

 wr_module("1");
 wr_module("2");
 wr_module("3");
 exit;


sub wr_module 
{ my $x=shift;
  my $wire0;
  my @wire1;
  my @wire2;
  print("Adding $x ");  
  $wire0.=$x;
  $wire1[1].=$x;
  $wire2{"a"}.=$x;
  print(" => $wire0 :: $wire1[1] :: $wire2{\"a\"} \n");
}

##</code><code>##

Adding 1  => 1 :: 1 :: 1 
Adding 2  => 2 :: 2 :: 12 
Adding 3  => 3 :: 3 :: 123 

##</code><code>##

Adding 1  => 1 :: 1 :: 1 
Adding 2  => 2 :: 2 :: 2 
Adding 3  => 3 :: 3 :: 3