i do have a syntax error on the following but i can't see the problem. i used the qutes that you suggested and there is still an issue.i'm very new to perl and this is the first script i have written so could u please help me out?? i need to randomise the contents of an array with the following i'm and am trying to suss out the syntax error i keep getting at the assignment step

$ispresent = 'false'
[download]

heres the code

Once the list is created I need to randomise the array.

$firstrandom = $list1[rand @list1];
push @list2, $random;
$count = $#list1
while ($count != 0){    ###create list2
$random = $list1[rand @list1];

$ispresent = 'false';

for $I (0..$#list2){##check to see if team is already in list
                if ($random == $list2[$I]) {
                        $ispresent = 'true'1};               
 };
                if ($ispresent =='false') { ##if not add it to @list2
                push @list2, $random;
$count--;
                };

};
[download]