Select Code to Download

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

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

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

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