print "BAM!\n" if exists $G{25}{30};

##</code><code>##

{
  1  => { 2 => 0, 3 => 0 },
  2  => { 3 => 0, 4 => 0 },
  3  => { 5 => 0 },
  4  => { 5 => 0 },
  5  => {},
  25 => {},
}
Start: 1, End: 5

##</code><code>##

my %G = (
   1=>{ EDGES=> { # Edges for node 1
           2=>{ "Data for edge 1->2" },
           3=>{ "Data for edge 1->3" },
        FOO=> { "a data element for node 1" },
        BAR=> { "another data elemment for node 1" },
   },
   2=> ...
}