#!/usr/bin/perl
use strict; 
use warnings; 
my @array = (1..10);
local $, = "\n"; 
print @array;