@bsp = map{{(split(/\./,(split)[4]))[0]  => [(split)[2,3]]}} @bsp;