#!/usr/bin/perl

use strict;
use warnings;

my @array=("abc","1,2,3","T","pu,pr");
my ($dyn_one,$dyn_two) = @array[1,3];

for my $i ( split /,/, $dyn_one ){
    for my $end ( split /,/, $dyn_two ){
        print sprintf "%s%s%s%s\n", $array[0],$i,$array[2],$end;
    }
}