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

my ($max,$index)=(0);
$numbers[$_]>$max and (($max=$numbers[$_]),($index=$_))
  foreach 0..$#numbers;
if (defined $index) {
  print "Index:$index Max:$max Corresponding:$temps[$index]";
} else {
  print "No elements found that are larger than 0";
}

##</code><code>##

Index:2 Max:4.78 Corresponding:71