I'm going to be Point Out Red Flags Guy:

($var1, $var2, $var3, $var4, $var5, $var6, $var7) = split /,/;
[download]

is the "Why Are You Not Using An Array?" red flag.

@vars = split /,/;
[download]

--

“Every bit of code is either naturally related to the problem at hand, or else it's an accidental side effect of the fact that you happened to solve the problem using a digital computer.”
M-J D