#!/usr/bin/perl

use strict;
use warnings;

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

#my @new = @array[join(",",@ARGV)];
#my @new = @array[1,3];
my @new = @array[$ARGV[0],$ARGV[1]];
print "@new\n";