my $check_me = my $check_me = $form_data{ 'new_user_name' }; 
        my $h = \%passfile;
		my @c = [$h, $check_me];
		my $d = Data::Dumper->new(@c, \@c);
		print $q->header;
        print $d->Dump;
        exit;