use strict;
use warnings;
my $incr=0;

my @need = qw(sanjay samir sanjay sudha jasmin sanjmay);
my @array1;

for my $elem(@need)
{
    if ($elem=~ qr/^sanj/){
        push @array1,$elem
    }
}
print @array1;
[download]