for $val (@x) {
    print "$val\n";
}