sub doSomething
 {
   my ($var) = @_;
   print $var;
 }