#!/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");
}