Hi,

When there are only two (or three) I sometimes write:

my $foo = my $bar = my $baz = 1;
[download]

(But don't use the variable names $a and $b -- they are special in Perl. $x, $y, $z is a good alternative, or even better, use descriptive names.)

Hope this helps !