my $data = data();
 my $count = scalar(@$data); #  $#$data;
print $count;