1  50
2  50
3  1
4  10
5  49
6  8
7  50
8  5
9  5
10  40

##</code><code>##

3   6
8   10

##</code><code>##

foreach my $line (@lines) {
 chomp $line;
 my @columns = split(/\t/, $line);
 my $score = $columns[1];
   if ($score < 50) {
	#something here...	
   }
}