use strict;
use warnings;

my @foo = qw/BA JK YD AB AA PP/;
my @bar = qw/10 46 23 79 46 88/;

print join(", ", sort{$a cmp $b} @foo), "\n";
print join(", ", sort{$a cmp $b} @bar), "\n";