Select Code to Download

@nums{ @numbers } = (1) x @numbers;

#!/usr/bin/perl -w       
use strict;
...
         
print Dumper \%nums;
print Dumper \%rums;

$VAR1 = {
          '8' => undef,
...
          '4' => 1,
          '6' => 1
        };

@nums{ @numbers } = ();
print "FOUND\n" if exists $nums{ $array[0] };