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 );

##</code><code>##

P007B_YUMYUMNOISESANDTASTING1
P007_YUMYUMNOISESANDTASTING5A
P007_YUMYUMNOISESANDTASTING5B
P007_YUMYUMNOISESANDTASTING5C

P007_YumYumNoisesAndTasting5A
P007_YumYumNoisesAndTasting5B
P007_YumYumNoisesAndTasting5C
P007b_YumYumNoisesAndTasting1

##</code><code>##

P007b_yumyumnoisesandtasting1
P007_yumyumnoisesandtasting5a
P007_yumyumnoisesandtasting5b
P007_yumyumnoisesandtasting5c