Select Code to Download

my %hash ={"var1", "info1", "var2", "info2", "var3", "info3"};
my @array=("var1","var2","var3");
...
push @result_array, $where;
}
$used = 0;