Select Code to Download

    while (@filename) {
        my $i;
        $file=shift @filename;
...
        }
        close (FILE);
    }

for $id (keys %outputdata) {
    print "$id:\t",(join("\t",@{$outputdata{$id}})),"\n";
}