use strict; use vars qw( ); #### use vars qw( $thing @list %lookup );