#!/usr/bin/env perl -l

use strict;
use warnings;

my @line = qw{A B C D};
print "All line elements: @line";

my $col = '2,3';
print "Indices I want: $col";

my @indices = split /,/ => $col;

my @wanted_elements = @line[@indices];

print "Wanted elements: @wanted_elements";