Select Code to Download

#!/usr/bin/perl
use strict;
# create some table rows
...
    }
    print "\n";
}

ARRAY(0x80e4ac0) ARRAY(0x80e4afc) ARRAY(0x80e8bc0)

a b c
...
1 2 3
4 5 6
7 8 9