my $a=1; my $b=1;

@x= qw{z g a };
print sort { our ($a,$b); $a cmp $b } @x