sub createRecord {
    return {
        'ID'        => 'Record',
        'FileName'  => shift,
        'LineNumber'=> shift,
        'LineData'  => shift,
        'Treatment' => shift,
    };
}

# $eins - $vier sind alles normale skalare
check(createRecord($File::Find::name, $eins, $zwei, $drei, $vier));