using Perl in skip logic

I am trying to get this to Perl code to work in skip logic in the question I would want to skip if A02 != 1. I keep getting syntax errors. What am I missing?

Begin Unverified Perl
    my $clist = 'household2';
    my $selectQ = 'A02';
    #Run
    my $len = LISTLENGTH($clist);
    for(my $i = 1; $i <= $len; $i++){
        my $item = LISTVALUE($clist, $i);
        if (GETVALUE('$selectQ'.'.'.$item) == 1){
			return 0;
			}
		}
    return 1;
End Unverified