0> sub checkmate { 'game', 'over', shift }
1> map { $_ => checkmate $_ } qw(fredley ronan unionhawk)
$res[0] = [
'fredley',
'game',
'over',
'fredley',
'ronan',
'game',
'over',
'ronan',
'unionhawk',
'game',
'over',
'unionhawk'
]
2> my %ed = map { $_ => checkmate $_ } qw(fredley ronan unionhawk)
$res[1] = [
'fredley',
'game',
'over',
'unionhawk',
'ronan',
'game',
'unionhawk',
'game'
]
4> for my $key (keys %ed) {say $key . " => " . $ed{$key}}
fredley => game