printf "%-30s %11ss %7s%% %10s %16s\n",
    $_,
    $ela{$_} ? commify( sprintf( "%8.2f", $ela{$_}/$version ) )          : '',
    $ela{$_} ? commify( sprintf( "%5.1f", $ela{$_}/$r*100) )             : '',
    $ctr{$_} ? commify( sprintf( "%10d",  $ctr{$_} ) )                   : '',
    $ctr{$_} && $ela{$_} ? sprintf( "%8.7f", $ela{$_}/$ctr{$_}/$version ): '';


sub commify {
    local $_ = reverse shift;
    /\./g;
    s/\G(\d{3})(\d)/$1,$2/g;
    scalar reverse $_
}