# From the doc :

use GD::Graph::Data;
use GD::Graph::bars;

my $data = GD::Graph::Data->new();
$data->read(file => '/data/sales.dat', delimiter => ',');
$data = $data->copy(wanted => [2, 4, 5]);