Select Code to Download

#!/usr/bin/perl -w
use strict;
...
untie %hash;
$template->param(SHOW_ALL_LOOP => \@loop_data);
print $template->output;