Help for this page
ID file1 file2 file3 file4 file5 file6......file25 ID21 ABC12 ABC12 ABC12 ABC12 ID22 XYZ11 XYZ11
#!/usr/bin/env perl use strict; ... print join( "\t", $key, @{ $data{$key} } ), "\n"; } }