#!/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];

##</code><code>##

#!/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];