#!/usr/bin/perl

# http://perlmonks.org/?node_id=1186402

use strict;
use warnings;

my @items = qw( apple banana orange );
my @used;

sub permute
  {
  @_ == @items and return print "@_\n";
  $used[$_]++ || permute(@_, $items[$_]), $used[$_]-- for 0 .. $#items;
  }

permute();