for my $element ( @bsp ) {
    my( undef, undef, $Zahl, $andereZahl, $name )  = split /\s+/, $element;
    $name =~ s/\.txt$//;
    $element = {$name => [$Zahl, $andereZahl]};
}