Select Code to Download

#!/usr/bin/perl

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

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