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

##</code><code>##

@vars = split /,/;