#!/usr/bin/perl

use strict;
use warnings;

my $arg = shift;
my %blah;

for my $lauf (1..3){

#a)
        if ( $arg eq 'a' ) {
                printf "$lauf. vor ++\n";
                $blah{$lauf}++;
                printf "$lauf. nach ++\n";
                next;
        }
#b)
        if ( $arg eq 'b' ) {
                printf "$lauf. vor ++\n" and 
                $blah{$lauf}++ and 
                printf "$lauf. nach ++\n" and
                next;
        }

#c)
                printf "$lauf. vor ++\n" and $blah{$lauf}++ and printf "$lauf. nach ++\n" and next if ( $arg eq 'c');
}

foreach(keys %blah){
        print "hier spricht die autovivication vom lauf $_ fuer $arg\n";
}

print "END\n";