my @werte = (
        {       'Muster' => '(\d+):(\d+):(\d+)\s+(\d+)\.(\d+),(\d+)',
                'Amizahl' => sub { my @values = @_; $values[3].$values[4].".".$values[5] },
        },
        {       'Muster' => '(\d+):(\d+):(\d+)\s+(\d+),(\d+)',
                'Amizahl' => sub { my @values = @_; $values[3].".".$values[4] },
        }
);
...
# schleife
my $amizahl = $werte[$w]->{Amizahl}->(@values);