Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/env perl
use strict;
...
print Dumper @array[ splice( @permuted_index, 0, 2 ) ];
print "And the final two:\n";
print Dumper @array[ splice( @permuted_index, 0, 2 ) ];
  2. or download this
    Here is your entire set:
$VAR1 = 'cat';
...
And the final two:
$VAR1 = 'cat';
$VAR2 = 'chimp';