my @Data = ("asdf","345");
  @Data + 0;
  my $Count = scalar(@Data);
print $Count;