use strict;
use warnings;

my @arrofIndices = (1, 3);
my $str = 'Zeroth|First|Second|Third';
my $prodKey = join "|", (split /\|/, $str)[@arrofIndices];

print $prodKey
##</code><code>##

First|Third