open (FILE, test.dat') or die "File could not be opened: $!\n";
while (<FILE>) {
 $file[$i] = $_;
 $i++;
}#while

$i = 0;
while ($i <= @file) {
 print "$file[$i]\n";
}#while