`14:06 >perl 516_SoPW.pl
Before:
bless({
population => [
bless({ frequency => 50, number => 0, use_duration => 1 }, "Person
+"),
bless({ frequency => 50, number => 1, use_duration => 1 }, "Person
+"),
bless({ frequency => 50, number => 2, use_duration => 1 }, "Person
+"),
bless({ frequency => 50, number => 3, use_duration => 1 }, "Person
+"),
bless({ frequency => 50, number => 4, use_duration => 1 }, "Person
+"),
bless({ frequency => 50, number => 5, use_duration => 1 }, "Person
+"),
bless({ frequency => 50, number => 6, use_duration => 1 }, "Person
+"),
bless({ frequency => 50, number => 7, use_duration => 1 }, "Person
+"),
bless({ frequency => 50, number => 8, use_duration => 1 }, "Person
+"),
bless({ frequency => 50, number => 9, use_duration => 1 }, "Person
+"),
bless({ frequency => 50, number => 10, use_duration => 1 }, "Perso
+n"),
bless({ frequency => 50, number => 11, use_duration => 1 }, "Perso
+n"),
bless({ frequency => 50, number => 12, use_duration => 1 }, "Perso
+n"),
bless({ frequency => 50, number => 13, use_duration => 1 }, "Perso
+n"),
bless({ frequency => 50, number => 14, use_duration => 1 }, "Perso
+n"),
bless({ frequency => 50, number => 15, use_duration => 1 }, "Perso
+n"),
bless({ frequency => 50, number => 16, use_duration => 1 }, "Perso
+n"),
bless({ frequency => 50, number => 17, use_duration => 1 }, "Perso
+n"),
bless({ frequency => 50, number => 18, use_duration => 1 }, "Perso
+n"),
bless({ frequency => 50, number => 19, use_duration => 1 }, "Perso
+n"),
bless({ frequency => 50, number => 20, use_duration => 1 }, "Perso
+n"),
bless({ frequency => 50, number => 21, use_duration => 1 }, "Perso
+n"),
bless({ frequency => 50, number => 22, use_duration => 1 }, "Perso
+n"),
bless({ frequency => 50, number => 23, use_duration => 1 }, "Perso
+n"),
bless({ frequency => 50, number => 24, use_duration => 1 }, "Perso
+n"),
bless({ frequency => 50, number => 25, use_duration => 1 }, "Perso
+n"),
],
}, "Nation")
After:
bless({
population => [
bless({ frequency => 50, number => 0, use_duration => 1 }, "Person
+"),
bless({ frequency => 50, number => 1, use_duration => 1 }, "Person
+"),
bless({ frequency => 50, number => 2, use_duration => 1 }, "Person
+"),
bless({ frequency => 50, number => 5, use_duration => 1 }, "Person
+"),
bless({ frequency => 50, number => 6, use_duration => 1 }, "Person
+"),
bless({ frequency => 50, number => 9, use_duration => 1 }, "Person
+"),
bless({ frequency => 50, number => 12, use_duration => 1 }, "Perso
+n"),
bless({ frequency => 50, number => 13, use_duration => 1 }, "Perso
+n"),
bless({ frequency => 50, number => 14, use_duration => 1 }, "Perso
+n"),
bless({ frequency => 50, number => 15, use_duration => 1 }, "Perso
+n"),
bless({ frequency => 50, number => 16, use_duration => 1 }, "Perso
+n"),
bless({ frequency => 50, number => 18, use_duration => 1 }, "Perso
+n"),
bless({ frequency => 50, number => 21, use_duration => 1 }, "Perso
+n"),
bless({ frequency => 50, number => 22, use_duration => 1 }, "Perso
+n"),
],
}, "Nation")
14:06 >
`