print "Non-destructive = ", $Count->[0][0],"\n";