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);
}