use vars qw($frob @mung %seen);