print join(",",sort { $a => $b} @a); #### if ($x = $y) { ... }