Select Code to Download

use strict;
use warnings;
...
for my $key (keys %stuff) {
    print "$key @{$stuff{$key}}\n";
}

$ cat file1
Adam 1 2 3
...
$ ./merge.pl file1 file2
Adam 1 2 3 4 5 6
Eve 4 5 6 7 8 9