#!/usr/bin/perl
use strict;
use warnings;

use Algorithm::Combinatorics qw(combinations);

my @data = qw(1 2 3 4 5 6 7 8 9 10);
my $k = 4;

open(my $output, ">", "combinations.txt") or die "Can't open combinations.txt: $!";

my $iter = combinations(\@data, $k);

while (my $combination = $iter->next)
{
	print "$combination\n";
	print $output "$combination\n";
}

close $output or die "$output: $!";