Select Code to Download

#!/usr/bin/perl -w

...
foreach( keys %{$data}) {
    print $_ , "\t" , join "\t" , @{$data->{$_}} , "\n";
}

use enlightment; # ( thx clintp :)