#!/usr/bin/perl
use strict;

my %final_data = (
	'1'	=> 1.000,
	'2'	=> 0.990,
	'3'	=> 0.980,
	'4'	=> 0.970,
	'5'	=> 0.960,
	'6'	=> 0.950,
	'7'	=> 0.940,
	'8'	=> 0.930,
	'9'	=> 0.920,
	'10'	=> 0.910,
	'11'	=> 0.900,
	'12'	=> 0.890,
);

my $min = 0.90;
my $max = 1.00;
my $low;
my $high;
my $incr = 0.01;

DATA_ITEM:
for my $key ( sort { $a <=> $b } keys %final_data )
{
   $low = $min;
   $high = $min + $incr;
   for my $bin ( 1 .. 10 )
   {
      if( $final_data{$key} < $min )
      {
	 warn "$final_data{$key} fell in bin 0 ( $final_data{$key} < $min )\n";
         $low = $high;
         $high += $incr;
         next DATA_ITEM;
      }
      elsif( $final_data{$key} >= $max )
      {
	 warn "$final_data{$key} fell in bin 11 ( $final_data{$key} >= $max )\n";
         $low = $high;
         $high += $incr;
         next DATA_ITEM;
      }
      elsif( ($final_data{$key} >= $low) && ($final_data{$key} < $high) )
      {
	 warn "$final_data{$key} fell in bin $bin ( $final_data{$key} >= $low && $final_data{$key} < $high )\n";
         $low = $high;
         $high += $incr;
         next DATA_ITEM;
      }
      $low = $high;
      $high += $incr;
   }
}