sub aufruf_sub {
my %args = @_;
if ($args{arg1}) { ...}
...
}