C:/Perl_524/bin\perl.exe -w d:/tmp/pm/pwc100.pl 
ok 1 - cost: 8
ok 2 - path: [1, 2, 4, 1]
ok 3 - cost: 19
ok 4 - path: [9, 6, 2, 2]
ok 5 - pathologigal cost: 100
random cost: 305
random path: [
  10,
  3,
  2,
  6,
  3,
  5,
  2,
  2,
  2,
  1,
  6,
  1,
  8,
  3,
  1,
  6,
  1,
  3,
  1,
  1,
  1,
  2,
  2,
  3,
  3,
  4,
  1,
  4,
  3,
  1,
  7,
  1,
  1,
  1,
  2,
  2,
  5,
  1,
  6,
  1,
  6,
  2,
  1,
  8,
  5,
  3,
  1,
  3,
  2,
  1,
  2,
  5,
  3,
  5,
  1,
  4,
  8,
  9,
  6,
  5,
  1,
  3,
  4,
  2,
  3,
  5,
  7,
  2,
  3,
  1,
  3,
  2,
  1,
  5,
  5,
  4,
  4,
  1,
  2,
  4,
  2,
  3,
  1,
  4,
  2,
  6,
  1,
  2,
  3,
  2,
  3,
  1,
  1,
  2,
  2,
  4,
  2,
  1,
  2,
  1,
]
1..5