or download this
#!/usr/bin/perl
use strict;
...
my $count = $.; # or, as you had it: my $count = @ged;
print "10th record : $ged[10]\n"; # n
+ote that $ged[10] is really the 11th record (array subscripts start a
+t 0)
print "No. of records : $count \n";