my @array = ('P', 'H', 'A', 'G', 'E', 
             'P', 'H', 'A', 'G', 'E',
             'P', 'Q', 'K', 'R', 'E',
             'P', 'H', 'A', 'G', 'E',
             'P', 'W', 'S', 'Q', 'E',
             'P', 'H', 'A', 'G', 'E',
             'P', 'R', 'D', 'L', 'E',
             'P', 'H', 'A', 'G', 'E');

my @words;
while (@array) {
   push(@words, join('', splice(@array, 0, 5)));
}