Perl on map