my ($roll1) = @_;