for my $p (@graph_links) {
  next unless defined $p;
  print ...
}