Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl -w

use strict;
...
       print "$number => $info\n";
}
close IN or warn "$!";

Select or download this

113 => San Francisco (Manager)
680 => Los Angeles (Worker)
456 => San Jose (People)