#! /usr/bin/perl
 
use strict;
use warnings;
use 5.14.0;
 
sub display
{       
	foreach(@_)
	{       
		print "$_\n"
        }

}
 
my @numberSet = 1..10;
 
print "\n show all the elements!\n". &display(@numberSet) ;

##</code><code>##

1
2
3
4
5
6
7
8
9
10

 show all the elements!