my $retval = 0;
my @list = ();
my %hash = ();