Select Code to Download

# build a hash with son => father as key => value pairs
my %sons;
...
7   5
8   1
9   2

Son    Father
1    1
...
3        3 | 5
4        6
5        7