Select Code to Download

use strict;
use warnings;
...
                print "$info->  $friends{$name}{$info}\n";
                }
        }

Janet Jones->
           spouse->  Bob Jones
...
         sister 1->  Andrea Limux
         son 2->  Pete Jones