use strict;
use vars qw( $var1 $var2 $var3 $var4 $var5 );
$var4 = 4;
$var5 = 'five';