Select Code to Download

use autodie;
my (%used, %player);
open $player{$_}, '<', "$_.txt" for qw( DR DL DC SW );
...
        }
        print $position, ' ',  $_ // "NoPlayer\n";
}

SW Varane,114.75
DR Arbeloa,149
DC Ramos,169
...
DC Varane,153
DC Nacho,134
DL Coentrao,148

SW Varane,114.75
DR Arbeloa,149
DC Ramos,169
...
DC NoPlayer
DC NoPlayer
DL Coentrao,148