print "Number of rows selected: ", scalar @{$all};