Help for this page

Select Code to Download

Select or download this

# Use strict and warnings, etc
# Read the file and hash it
...
  print join "\t", ($_, @{ $data{$_} }); # Assuming you want them tab 
+seperated
  print "\n";
}