Select Code to Download

my %Data;
open( IN, "<", "data.txt" ) or die "data.txt: $!";
...
 $Data{$key} = [ @values ];
}
close IN;

for my $key ( keys %Data ) {
 my @replace_vals = ();
...
 }
 $Data{$key} = [ @replace_vals ];
}