Select Code to Download

@a = qw( words only contains );
@b = qw( 8 3 7 1 );
...
# contains only words
print join( " ", sort { $a <=> $b || $a cmp $b } @b ), "\n";
# 1 3 7 8

@a = qw( 2 two 1 one );
print join( " ", sort { $a cmp $b || $a <=> $b } @a ), "\n";
# 1 2 one two