#!/usr/bin/perl

use strict;
use warnings;

my %descriptor_array = (
                        1 => [ 1, 2, 3, 4 ],
                        2 => [ 1, 2, 3, 4 ],
                        3 => [ 1, 2, 3, 4 ],
                        4 => [ 1, 2, 3, 4 ],
                       );

foreach my $array_no (1 .. 4) {
  print "$array_no: @{$descriptor_array{$array_no}}\n";
}