#!/usr/bin/perl -w
use strict;

my @users = ("Andrew", "Andrews", "Eric", "Andy", "Test");
my $param = "AnDr";    # what to search for

foreach (@users) {
  print "$_\n" if /$param/i;
}

__OUTPUT__
Andrew
Andrews