my $dipped=0;
my $column;
foreach ...
...
  if ($score < 50) {
    $dipped= $columns[0] if (not $dipped);
  }
  else {
    print "$dipped $column\n" if ($dipped);
    $dipped=0;
  }
  $column= $column[0];
}
print "$dipped $column\n" if ($dipped);