>perl -MData::Dumper -E "my @players = qw/ barney fred dino/; my @bowling_scores = (195, 205, 30);my %score=map{shift @players,$_} @bowling_scores;say  Dumper \%score"
$VAR1 = {
          'dino' => 30,
          'barney' => 195,
          'fred' => 205
        };

##</code><code>##

   my %score=map{shift @players,$_} @bowling_scores;

##</code><code>##

>perl -MData::Dumper -E "my @players = qw/ barney fred dino/; my @bowling_scores = (195, 205, 30);my %score=map{$players[$_],$bowling_scores[$_]} 0..$#players;say  Dumper \%score; say Dumper \@players"

##</code><code>##

  my %score=map{$players[$_],$bowling_scores[$_]} 0..$#players;