Unless I've misread the above, you're wanting to store the array as a hash element. If so, the following should illustrate one way to do it:

my @array = qw (ident
                RDP_Ident
                Radar_Site_Ident
                site_x
                site_y
                Useful_Vol_Upper
                Useful_Vol_Lower
                Useful_Vol_North
                Useful_Vol_South
                Useful_Vol_East
                Useful_Vol_West
                Rotation
                Rotation_x
                Rotation_y
                Reserved
                QNH_Datum
                terminator
                chksum
            );

my %Idents;

$Idents{ Format_7 } = \@array;

foreach my $element (@{$Idents{ Format_7 }})
{
    print "$element\n";
}
[download]

If things get any worse, I'll have to ask you to stop helping me.