Help for this page
#!/usr/bin/perl use warnings; ... print join( "\t", $name, @{ $data{ $name } } ), "\n"; }