Select Code to Download

use strict;
use warnings;
...
131
213-324-435
372

$ perl  predecessor.pl
117 => 117
...
435 => 213
456 => 123
567 => 123