$ perl PWC_100_min_path_sum.pl
Result: 8 (1, 4, 2, 1)