Select Code to Download

my $graph_links  = join ('', @graph_links);
@graph_links = split (/\s+/, $graph_links);

## don't bother with @points as it looks to be redundant
push @graph_links, ( /^(\d{1,2})$/ ?
...
:
  undef
);

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