Find length of an array in perl

 

@fruits = ("Orange", "Grapefruit", "Lemon");#initializing associative array

print "Length of fruits array is " . scalar(@fruits);