use strict;
use warnings;
my $incr=0;
my $incr1=0;
my @need = qw(sanjay samir sanjay sudha jasmin sanjmay);
my @array1="";
for(;;)
{
	last if $need[$incr] eq '';
    if ($need[$incr]=~ qr/^sanj/)
		{
		$array1[$incr1]= $need[$incr];
		$incr1++;
		}
	$incr++;
}
print @array1;