c:\@Work\Perl\monks>perl -wMstrict -MData::Dump -le
"use List::MoreUtils qw(zip);
 ;;
 my @players = qw/ barney fred dino/;
 my @bowling_scores = (195, 205, 30);
 ;;
 my %score = zip @players, @bowling_scores;
 dd \%score;
"
{ barney => 195, dino => 30, fred => 205 }