Select Code to Download

  sub common_subset
  {
...
    grep { exists $h{$_} } common_subset( @_ )
  }

  my @sets =
  (
...

  my @l = common_subset( @sets );