Could you please show us an example of $dischargelookuphash using Data::Dumper (see also Basic debugging checklist), and the output that you would like to get for that sample input.