my @players = qw/ barney fred dino/;
  my @bowling_scores = (195, 205, 30);
  my %score;
  @score { @players} = @bowling_scores;

  print "Tonight's players were @players\n";
  print "Their scores were: @score{@players}";