Select Code to Download

use strict;
use warnings;
...
        print "No matching long num for $short ...\n";
    }
}

Long num for 0.099 = 0.0989999999999
Long num for 0.086 = 0.0859999999999
Long num for 0.024 = 0.0239999999993