As many as you want, until you run out of memory.

Liz

Update:
It should maybe be noted that you do not have to specify all of them on one line. This is also perfectly valid:

use vars qw(
 $foo
 @bar
 %baz
);
[download]