Select Code to Download

llil start
get_properties : 15 secs
...
get_properties : 31 secs
sort + output: 10 secs
total: 41 secs

use strict;
use warnings;
use feature 'say';
...
my $tend2 = time;
warn "sort + output: ", $tend2 - $tstart2, " secs\n";
warn "total: ", $tend2 - $tstart1, " secs\n";