open (my $fh, ">> ${prefix}${thiscust}${suffix}")
[download]

Why do you concatenate the second and third arguments to open() into a string just so that perl can pull it appart again?

open (my $fh, '>>', "$prefix$thiscust$suffix")
[download]