>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"