use Tie::File::GFF;

tie my @data, 'Tie::File::GFF', "datafile";
print "Rec$_\n$data[$_]\n\n" for (0..$#data);