for my $element ( @bsp ) {
    my @vals = split /\s+/, $element;
    $vals[4] =~ s/\.txt$//;
    $element = {$vals[4] => [$vals[2],$vals[3]]};
}