Please correct the mistake....Thank you all once again...

You can do it :) see Basic debugging checklist and use Data::Dump::dd() to ddumper your "data" at certain points

Also you should give variables meaningful names, F1/F2... aren't descriptive like $infh, $outfh, $cashfh...