Select Code to Download

@files = qw(model4run1 model2run1 model4run2 model1run1);

...

my $prefix = substr($first, 0, length($combined));
print qq{Prefix is "$prefix"\n};

@files = qw(model4run1 model5run1);