my $var1;
my $var2;
my $var3;
#
# OR
#
my ( $var1, $var2, $var3 );