@a = qw( words only contains );
@b = qw( 8 3 7 1 );

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