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