if ($special{$data[$i][0]}) { if($i == 0) { $start = 'none'; } else { $start = $data[$i - 1][2] - 1; } if($i == $#data) { $end = 'none'; } else { $end = $data[$i + 1][1] - 1; } print join "\t" => $id, $data[$i][0], $start, $end; }