Help for this page

Select Code to Download


  1. or download this
    ~linux> perl -MMath::Cartesian::Product -e 'my %hash = (q|foo|=>[qw|fo
    +ol food foot|],q|bar|=>[qw|barricade|]); for (keys %hash) {cartesian 
    +{print qq|@_\n|} [$_],$hash{$_}};'
    
  2. or download this
    bar barricade
    foo fool
    foo food
    foo foot