foreach (@files) {
    $file = "$klarfdir" . "\\" . "$_";
    $file = Klarf::Parser->new($file);

    my %result = %{ $file->defectdata () };
    foreach ( keys %result ) {
        print( $result{$_}->{XINDEX} );
    }
}