Select Code to Download

%hash = { 
             filename1 => { id1 => 1, id2 => 1 },
             filename2 => { id1 => 3, id2 => 4 }
};

use strict;
use warnings;
...
       $filehash{$filename}{$ref_id} = $ref_name; 
    }
}