sub foo{
   my $bar = schifft;
}