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

my %data;
@data{@data} = (0..$#data);

my $best = $data{'76.5'};
print $numbers[$best], $/;