#!/usr/bin/perl -w
use strict;
use warnings;
use diagnostics;
use feature 'say';
my@array = qw(a b c d e f g h i j k l m n o p q  r s t u v w x y z);
my@array_a = @array[0..5];
my@array_b = @array[6..8];
my@array_c = @array[8..15];
my@array_d = @array[16..16];
my@array_e = @array[17..20];
my@array_f = @array[21..24];
my@array_g = @array[25..16];
open(FH,'>','file.txt') or die "$!";
print FH "first five string:",@array_a,"\n";
print FH @array_b,"\n";
print FH @array_c,"\n";
print FH @array_d,"\n";
print FH @array_e,"\n";
print FH @array_f,"\n";
print FH @array_g;