>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
        };