use feature qw( say );
   use Sort::Key::Natural qw( natsort );
   say for natsort qw( 	P007B_YUMYUMNOISESANDTASTING1 P007_YUMYUMNOISESANDTASTING5A P007_YUMYUMNOISESANDTASTING5B 007_YUMYUMNOISESANDTASTING5C );
   say for natsort qw( P007b_YumYumNoisesAndTasting1 P007_YumYumNoisesAndTasting5A P007_YumYumNoisesAndTasting5B P007_YumYumNoisesAndTasting5C );