#! /usr/bin/perl 
use Data::Table;

my $t = new Data::Table(
 [
 ['a', 1000, 2000, 3000, 200,500],
 ['b', 2000, 1000, 1000, 700,800],
 ['c', 3000, 3000, 3000, 5,7],
 ],
 ['Name', 'value1', 'value2', 'value3', 'value4', 'value5'], 0);