open (CINGULAR, "c:/documents and Settings/david price/my documents/cingular.txt") || die "cannot open: $!"; @number=; close (CINGULAR); $count=0; while ($count<100) { if (@number=~[/^9432$/g]) { print "match found"; } else { print "match failed"; } $count++; } #### Applying pattern match (m//) to @array will act on scalar (@array)at cingular.pl line 9....and Use of uninitialized value in pattern match (m//) at cingular.pl line 9.