Select Code to Download

foreach $t(@{$file}) {
    foreach $tt(keys %{$t}){
         print "\nt= $tt v=" . $t->{$tt};
    }
}