#!/usr/bin/perl -wl

use strict;

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

my @new = map { $array[$_] } @ARGV;

print "@new";