my $filename = "$root/$path/$name";
open my $fileHandle, '<', $filename or die "Failed to open $filename: $!";
print $fileHandle "$_:    $results[$_]\n" for 1 .. $#results;
print $fileHandle "Total: $results[0]\n";