for $el (@list) {
   print "$el\n";
}