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

##</code><code>##

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

##</code><code>##

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