#!/usr/bin/perl

$_= '1_5_6_13_19_21_25_32_37_39_45_47_58_61_65'; 


@c = split/_/;
#$dl = $#c;
$sc = 0;
$do = 0;
&u1(@c);

sub u1 {
  
  my @u = @_;
  #print @_;
  #print " ";
  my $dl = $#_;

  for my $i (0..$dl) {   
    my @r=();
    
    for my $j (0..$dl){
      next if $j==$i;
      @r = (@r, $u[$j]);
    }
    
  
    print "@r\n";
    
    goto M1 if ++$sc>20; 
    
    if(++$do<5) {&u1(@r);}
    
  }
}

M1: