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

my @array = qw(5 4 6 6 2 3 4 9 1 2 4 5);
my (@blue, @red, @green, @orange);

while (@array)
{
   my ($blue, $red, $green, $orange) = splice(@array,0,4);
   push @blue,  $blue;
   push @red,   $red;
   push @green, $green;
   push @orange,$orange;
}

print "Blue =   @blue\n";
print "Red =    @red\n";
print "Green=   @green\n";
print "Orange = @orange\n";

__END__
Blue =   5 2 1
Red =    4 3 2
Green=   6 4 4
Orange = 6 9 5