my $var = "62.40.40.30";

print "var: $var\n";

## Please note that following part of code (foreach, if 
## exists, while) doesn't work
## It doesn't give any error; simply says no match
foreach $str (@bigArray)
{
    print "$str\n";
    if ($str =~ /^$var/)
    {
      print "IP address matched. Proceed to log trap!\n";
      last;
    }
    else
    {
      print "Match not found.\n";
    }
}

##</code><code>##

if (exists ($hashArray{$var}))
{
    print $var . " exists in hash!\n";
}
while (($key, $value) = each (%hashArray)) 
{
    print "KEY: $key\n";
    if ($key eq $var)
    {
        print "IP Matches!\n";
    }
}

##</code><code>##

if (exists ($hashArray{$var})){
   print "$var exists in the hash.\n";
   print "Its value is $hashArray{$var}\n";
}