print "elements in \@data: ", scalar( @data ), $/;