use strict;
my ( $var1, $var2, $var3 );

# or 
my ( $var4, $var5 ) = ( 4, 'five' );