sub function1
{
  %parameters=@_;
  $var1=$parameters{var1};
  return($var1);
}