Prog_name : print.pl

#!/usr/bin/perl

use strict;
use warnings;

my @array = ( 11,12,13,14,15);

#my @new = @array[join(",",@ARGV)];
my @new = @array[1,3];

print "@new\n";

Output :-
12 14