Select Code to Download

#!/usr/bin/perl_parallel -w
# For Emacs: -*- mode:cperl; mode:folding; -*-
use strict;
...
print join(', ', map { decode('utf8', $_)} keys %data), "\n";

untie %data;