Help for this page

Select Code to Download


  1. or download this
    use List::Util 'shuffle';
  2. or download this
    my @friends = map { (split /\./)[1] } <DATA>;
chomp @friends;
  3. or download this
    @friends = shuffle @friends;
my %couple = (@friends);
  4. or download this
    for (keys %couple) {
    print "$_ and $couple{$_} are partners\n";
}
  5. or download this
    __DATA__
1.bobby
2.jane
...
4.markus
5.gabriel
6.Alex