Help for this page
#!/usr/bin/perl -w ... foreach( keys %{$data}) { print $_ , "\t" , join "\t" , @{$data->{$_}} , "\n"; }
use enlightment; # ( thx clintp :)