foreach my $k(keys %graph) {
    print "<<<<<\n$k     ===>>>>  $graph{$k}\n>>>>>\n"
}