#!/usr/bin/perl

my $data = [
    [   1,   2,   3,   4 ],
    [  10,  20,  30 ],
    [ 100, 200, 300 ],
];