@%= map { my $die =$_; sub { print for join $', @$die[ $%,$==>$|] } }