Re: Why "use of uninitialized value" warning comes?

[reneeb]

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;

[ikegami]

qr/^sanj/ should be /^sanj/