Select Code to Download

#!/usr/bin/env perl

...

use Data::Dump;
dd \%work;

$ pm_example.pl 2
{
  1 => { a => 1, b => 2, f => 6, i => 9 },
  2 => { c => 3, d => 4, e => 5, g => 7, h => 8 },
}

$ pm_example.pl 3
{
...
  2 => { b => 2, h => 8, i => 9 },
  3 => { a => 1, f => 6, g => 7 },
}

$ pm_example.pl 4
{
...
  3 => { c => 3, h => 8 },
  4 => { b => 2, f => 6 },
}