Select Code to Download

#!/usr/bin/perl

...
# union is now complete

print "$_,$union{$_}\n" for ( sort keys %union );