while(my $line=<FILE>){ 
  my @marks;
  ...
}