map generator (perl)