#!/usr/bin/perl -w

use strict;

my @temps = ('69', '70', '71');
my @numbers = ('0.115', '3.667', '4.78');

my $index=0;
my $largest=$numbers[0];

for (1 .. $#numbers) {
        if ($numbers[$_] > $largest){
                $largest=$numbers[$_];
                $index=$_;
        }
}
print $temps[$index];