Select Code to Download

#!usr/bin/perl
use warnings;
...
 # list context slurps
 my @all_permutations = permutations(\@data);
 print Dumper(@all_permutations);