Select Code to Download

$string1 = 'foo';
$string2 = 'bar';
...
        $string_table{$in_string} = 'EXCEPTION';
    }
}

%end_order = (
...
    }

}

foreach my $string (sort funky_sort @in_strings) {
    print $string, "\n";
}