Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl
use warnings;
...

say eq_deeply(\@array1, bag(@array2));  # 1