Select Code to Download

traverse_sequences(
...
$callback_1 = sub {…};
$callback_2 = sub {…};
$callback_3 = sub {…};

my $str1 = shift @_;
my $str2 = shift @_;