#!/usr/bin/perl

use strict; 
use warnings;

while (<DATA>) {
	#print "$_" ;
	my @columns = split(/\t/, $_);
	#print "$columns[6]\n";
	if($columns[6] <= 70){
		print "$columns[0]$columns[1]$columns[2]$columns[3]$columns[4]$columns[5]$columns[6]$columns[7]"; 
	}
}	

__DATA__ 
100	200	300	400	500	600	700	800
11	222	333	50	54	60	70	90
11	22	33	44	55	66	77	88