Select Code to Download

my @array = ( \ $one, \ $two, \ $three);

foreach my $item (@array){
...
        $$item = 'no';
    }
}