my $x=join "",<FILE>;
my %graph = eval $x;