use strict; 
use warnings;
my( $xlink,@xlinkpaths );
my $stream = streamname;
my @xlinks = (`cmd to get xlinks`) ;

foreach $xlink (@xlinks) {
    push @xlinkpaths, $xlink =~ m{incl -s streamname /./(.+)};
}

my @exclpaths = (
    "wefwfewf/fewfff/",
    "btrtbrtb/gbrgbrg/rttty/",
 );
unshift @exclpaths, @xlinkpaths;