for $el1, $el2 (@list) {
   print "$el1 - $el2\n";
}