maybe your irritated by the "function-like" look of my, but

my ($var1, $var2, $var3, $var4);

is only a short form of

(my $var1, my $var2, my $var3, my $var4);