#!/usr/bin/perl

use warnings;
use strict;

my @array = (1,2,3,4,5,6,7,8,9);

print join("\n", @array[0..$#array]), "\n";
#print join("\n", @array[0..5]), "\n";