Select Code to Download

use strict;
use warnings;
...
my $native_elapsed_time = tv_interval($native_map_start_time);

printf "The elapsed time with native map is %2.2f seconds\n", $native_
+elapsed_time;

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

use strict;
use warnings;
...
my $mce_elapsed = tv_interval($mce_start_time);

printf "The elapsed time with MCE::map (mce_map_s) is %2.2f seconds\n"
+, $mce_elapsed;

perl mce_map.pl 
The elapsed time with MCE::map (mce_map_s) is 25.34 seconds

uname -rv
5.10.0-0.bpo.7-amd64 #1 SMP Debian 5.10.40-1~bpo10+1 (2021-06-04)