my @count = $data;
my $count = @count;
print $count;