Select Code to Download

use strict;
use warnings;
...

$dispatch{0}->();
$dispatch{23}->();

    map { $_ => \&action_124_to_140 }
      ( 124 .. 140, 143 .. 146, 148 .. 149, 160 .. 169, 181 .. 189 ),

    map { $_ => \&action_89930_to_89999 } ( 89930 .. 89999 ),

$dispatch{1000}->();

#!/usr/bin/perl -w
use strict;
...
89930
89999
89963