Help for this page
my %graph = <FILE>
foreach my $k(keys %graph) { print "<<<<<\n$k ===>>>> $graph{$k}\n>>>>>\n" }