for my $key (keys %File1) {
    print "Gene: $key\nDescription: $File1_D{$key}\nData: $File1{$key}
+\n";
}
[download]

Once you understand this you can trivially convert it into FASTA format using a Template or format or your own routine.