Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl

...
if (exists($hash{$searchkey})) {
  print qq(searchkey "$searchkey" exists in the hash...\n);
}

Select or download this

__OUTPUT__
$VAR1 = [
...
          '12345'
        ];
searchkey "CA12DE" exists in the hash...