my $userInfo;
my $number = 1;
my $temp = 1;
push @$userInfo, { number => $number, 
	name => param("n$i"), 
	id => param("id$i"), 
	rollSizzle => param("rs$i"), 
	roll => $temp, 
	sizzle => $temp} ;
print Dumper($userInfo);