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