c:\@Work\Perl\monks>perl -wMstrict -MData::Dump -le
"my @array = qw( sean connery george lazenby roger moore timothy dalton pierce brosnan );
 my %myHash = @array;
 dd \%myHash;
"
{
  george  => "lazenby",
  pierce  => "brosnan",
  roger   => "moore",
  sean    => "connery",
  timothy => "dalton",
}