sub bla {
  my ($a) = shift;
  ...

}
#Aufruf Bsp.:
$b = "ABC";
bla($b)