push(@marks,$3,$4,$5);

##</code><code>##

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