sub check {
my $record = shift; # <--- Probleme
#my $record = { # <--- so würde alles funktionieren
#            'FileName' => 'c:\blah\fasel2.txt',
#            'ID' => 'Record',
#            'LineData' => 'some text comes here',
#            'LineNumber' => '222',
#            'Treatment' => undef,
#};

# ... etwas Logik dazwischen bis ...
createObject($record, $eins, $zwei, $drei, $vier); # <-- hier gebe ich den bereits erhaltenen Record weiter!
}