$ perl native_map.pl 
The elapsed time with native map is 8.57 seconds