use autodie qw( :all );
my %player;  open $player{$_}, '<', $_.'.txt' for qw( DR DL DC );
open my $formation, '<', 'formation.txt';
for (<$formation>) {
        chomp; print "$_ ", readline($player{$_}) // "No Player\n";
}