Change the second print like that:

...
    no strict 'refs';
    for my $data2 (keys %{$Rec->{$data}})
    {
        print "\t$data2: \t $Rec->{$data}{$data2} \n";

    }
...
[download]