use GD::Graph::lines;
use GD::Graph::Map;

@data = ( 
     [ qw( Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec) ],
     [ reverse(4, 3, 5, 6, 3,  1.5, -1, -3, -4, -6, -7, -8)],
     [        (4, 3, 5, 6, 3,  1.5, -1, -3, -4, -6, -7, -8)],
     [        (2, 2, 2, 5, 5,  4.5,1.5,  2,  3,  5,  4,  3)],
);