Select Code to Download

my @cases=();
my @FILE=<DATA>;
...
   push @cases, \%case;
   $dot++;
}

my @FILE=<DATA>;
close(DATA);
...
   $fred= \%case;
   $dot++;
}