#! /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) ;