$ perl -wE '
    my @players = qw{Barney Fred Dino};
    my @bowled = (195, 205, 30);
    my %score = map +($players[$_] => $bowled[$_]), 0 .. $#players;
    say "@players";
    say "@score{@players}";
'
Barney Fred Dino
195 205 30