Select Code to Download

sub countrows {
# First parameter is a pointer/reference to the data
...
print countrows(\@data,0,2),' ',countrows(\@data,1,3,2),' ',countrows(
+\@data,4),"\n";

# print 3 0 2

sub randomarray {
  my ($columns,$count)= @_;
...
3 4 
3 0 1 
0 1 4 2