Help for this page

Select Code to Download

Select or download this

use strict;
use warnings;
...
        }
    }
}

Select or download this

$ perl lookup.pl
         24000 :           2500
...
     260000000 :       43200000
   78893999998 :     7889400000
  157788000001 :    15778800000