#!/usr/bin/perl

@x = (1,2,3,6); for $val (@x) { print "$val";print "\n"; }