#!perl

use strict;

my $ln = 9;
my $contents;

open (Fnm , "a.dat");

while ($contents = <Fnm>){
     chomp;
     if ($ln == 9){
         close Fnm;
         $ln = 0;
     }
     print "[ $contents ]\n";
}
__END__
[ one 
 ]