for my $i (keys %{$gra{$k}})