#!/usr/bin/perl -w       
use strict;
use Data::Dumper;

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

my(%nums, %rums);

@nums{ @numbers } = 1;
@rums{ @numbers } = (1) x @numbers;
         
print Dumper \%nums;
print Dumper \%rums;