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