use vars split(' ', <<'END');
$var1 $var2 $var3 $var4 $var5
$var6 $var7 $var8 $var9 $var0
END
[download]

That's a joke, by the way.

As a note, maybe what you want to do is:

our ($var1, $var2, $var3, ...);

This 'use vars' stuff is for older Perl 5 code.