#!/usr/bin/perl -w

use strict;

my @temps =  ('69', '70', '71');
my @numbers = ('0.115', '3.667', '4.78');
my $counter=0;
my $index=0;
my $largest=shift @numbers;
for (@numbers){
        $index  = $counter if ($temps[$counter++]>$largest);

}
print $temps[$index];