Select Code to Download

$rets{"$retid$fnum"} = {
                 FNAME             => $fn,
...
                 FREQUENCY         => $freq,
                 FILE_NUMBER       => $fnum
};