use feature qw( say );
   use Sort::Key::Natural qw( natkeysort );
   say for natkeysort {$_} qw( 	P007B_YUM P007_YUM  );
   say qw(---);
   say for natkeysort {$_} qw( 	P007b_Yum P007_Yum  );
   say qw(---);
   say for natkeysort {$_} qw( 	P007b_yum P007_yum  );