use strict;
use warnings;
use Data::Dumper;

my %myHash;
my @array = qw( sean connery george lazemby roger moore timothy dalton pierce brosnan );

for my $i (0..4) {
    my ($key, $val) = splice @array, 0, 2;;
    $myHash{$key} = $val;
}
print Dumper \%myHash;