@list=qw( one two three four five );

$a="Hello";
$b="World";
sort { $a <=> $b } @list;
print "$a $b";  # Hello World