use strict;

my @numbers = ('0.001','0.34','0.456','0.521');
my @data = ('70.1','75.3','76.5','87.4');

print $numbers[array_index('76.5', @data)];

sub array_index {
        @_{@_}=-1..@_;
        $_{$_[0]}
}