Just a guess, but maybe you're just not looking at the return value the right way.

 my $iter = permutations(\@data);
 while (my $p = $iter->next) {
     print "@$p\n";
 }
[download]

Trouble is, this will take a VERY long time to complete if @data is large.