#!/usr/bin/perl -w                                                                            

use strict;

                                                                                my @array = (1, 3, 5, 7, 9);
my @numbers = (1, 4, 6 , 8);                                                                                
my %nums;                                                                                

# @nums{ @numbers } = 1;  # incorrect
@nums{ @numbers } = (1) x @numbers; # as jryan points out                                                                                

print "FOUND\n" if $nums{ $array[0] };