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

my @array= qw/a b c d e f g h i/;  

my $size= 2; # Number of elements in each text file
my $count= @array; 
my $file_num1= $count/$size; 
my $integer= int$file_num1; 
my $file_number= $integer+1; # maximum number of files 

print "\n Number of text files: $file_number\n"; 

# To create a result folder on desktop: 

 my $dir="Result"; 
 mkdir $dir or die $!; 
 
# code to sort two elements in each text file: 

    my $num1=0; 
for (@array) { $num1++; # for LOOP begins 

  # code to be written to place $size elements in each file

# To create the text files like 1.txt, 2.txt inside Result folder: 
####################################################
 my $output="$dir/$num1.txt"; 
 open (my $fh,">",$output) or die"Cannot open file'$output'.\n"; 
###############################################

# print $fh ??

close $output; 

}  # for LOOP ends 

exit; 
##</code><code>##

 
C:\Users\x>cd d*

C:\Users\x\Desktop>p.pl

 Number of text files: 5

C:\Users\x\Desktop> 
##</code><code>##

 
1.txt a
      b
2.txt c
      d
..

5.txt i