print (split /,/,$_)[1] for grep /^1006/, @array; #UNTESTED