Select Code to Download

my $ref = $ue->filinfo;
my %HoH = %{$ref};

 foreach my $filename ( keys %HoH ) {
            print "$filename: { ";
...
            print "}\n";
        }