sub v_format { my $value = shift; if ($value >= ($MAX - $EPSILON)) { return $value } else { return ''; } $my_graph->set('values_format' => \&v_format);