I'd suggest you use the map function.
Properly, MAP allows you, amongst other things, to cast a regexp on $_ for each list element (I'd call it ARRAY in this case).
Please refer to previous posts about regexp, whereas with map here you can simplify all syntax needed in one line.

#!usr/bin/perl
 ### Search through the users
  
  @vararray= ('andrew', 'andrews', 'test', 'AnDre', 'HAHAhahAndrEXXXSh
+owtonite', 'AndreaLovesPr0n','Tony', 'Perlmonks');
  
=comment
 foreach $user (@list) {
  
  if(param('search') =~ /$user/) {
    print "$user<br>";
  }
 }
=cut
  
  $varregexp= 'andre';
  
  #this is just for finding the number of matches
  $varmapresults= 0;
  $varmapresults= map (/$varregexp/i, @vararray); 
  
  #get the actual values. A simple regexp returns the NUMBER of matche
+s, hence the IF statement between brackets
  @varmapresultsarray= map {$_ if $_=~ /$varregexp/i} @vararray; 
  
   print "\nHell-llo n-nurse!: $varmapresults times";
   print "\nDo what you want with me!: @varmapresultsarray";
[download]

The slickness of the MAP function will be very useful in your future!
____________________
$ i |\/| |° £ i f '/
I know MU, hence I can only learn