You would need to pass a reference to the object then update the referenced value:

plot (\$g);
...

    $$graphimage = $graph->plot(\@data) or die $graph->error;
[download]