for my $i (0..$#file) {
   print $file[$i];
}