@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

##</code><code>##

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