sub a {
   print $variable;
  }
sub b {
    $variable;
   }