sub readxml{
$xmlfile = shift;
my $twig= new XML::Twig(twig_handlers => { '/kvdt' => \&fall });                       
$twig->parsefile($xmlfile);
}


sub fall{
    my( $twig, $element)= @_;
    my @scheine = $element->get_xpath('.//*');
    foreach my $schein (@scheine){
        my $fk = $schein->name;
        if ($schein->{att}->{USE}){($schein->{att}->{USE} =~ /EDV/)?(next):();}
        if ($fk =~ /fk....\b/){
            my $key = substr($fk,2,4);
            $data{xml}{$key}++;
        }
    }
}

##</code><code>##

sub readxml{
$xmlfile = shift;
open(XML, $xmlfile);
while(<XML>){
    chomp();
    my $line = $_;
    my @bla;
    ($line =~ /USE="EDV"/)?(next):();
    if ($line =~ /<fk....[^_]/){
        @bla = split(/<fk/,$line);
        my $key = substr($bla[1],0,4); #30
        $data{xml}{$key}++;
    }   
}   
close(XML);
}