Select Code to Download

my %param = (mo => 1, tu =>1, ..., fr =>1);

my (%values, @unspecified);
while (my $line = <$data_in>) {
...
       push @unspecified, $line;
    }
}