criptica??? "map" è una delle funzioni più semplici di Perl!!!

Ovviamente scherzo.

map usato in quello maniera significa:

passa a "print" il risultato dell'elaborazione effettuato dal codice compreso tra {} sull'input contenuto nell'array @$_;

nel blocco {} abbiamo un operatore booleano ternario:

<condizione> ? <se vera fai questo> : <se falsa fai questo>

quindi nel tuo caso se nella griglia alla posizione data c'è un numero scrivilo allineato a dx, altrimenti inserisci 4 spazi.