use strict ;
use warnings ;

use List::Util qw(first) ;

my @table = () ;

while (<DATA>) {
  m/^\s*(\S+)\s+(\S+)\s*$/ ;
  push @table, [$1, $2] ;
} ;

@table = reverse sort { $a->[1] <=> $b->[1] ; } @table ;

my @test = (2, 2.69, 2.7, 3.9, 50,  51, 51.1, 200) ;
my @ok   = (0,    1,   1,   5,  7, 170,  171, 171) ;

foreach my $t (@test) {
  my $r = first { $_->[1] <= $t } @table ;

  $r = defined($r) ? $r->[0] : 0 ;

  my $o = shift(@ok) ;
  printf "%7.3f -> %4d  %s\n", $t, $r, $r == $o ? "OK" : "??? expected $o" ;

} ;

__DATA__
    1     2.69
    2     2.97032
    3     3.25064
    4     3.53096
    5     3.81128
    6     4.0916
    7     4.37192
    170   50.98
    171   51.086