replaced bioperl col%id with custom sub with cut