This should sort your problems out ...
Begin Unverified Perl
if (GETVALUE("Q1")==1)
{
ADD("List1",1);
}
if (GETVALUE("Q2")==1)
{
ADD("List1",2);
}
End Unverified
ADD(List1,3,7)
Randomize()
A couple of issues I spotted ...
1/ You had a missing beginning curly bracket "{" on your first IF statement (before the "ADD" command).
2/ Use double quotes in Perl Script.
3/ Ensure all your question and list names are typed exactly as you have defined them as Perl is case sensitive.
4/ Based on your script, it is assuming Q1 and Q2 are single response select type questions. If they are multiple response, use Q1_1==1 and Q2_1==1.