As moritz points out, your problem description is very confusing. Grabbing at straws, do you mean something like this?
knoppix@Microknoppix:~$ perl -MData::Dumper -Mstrict -wE '
> my @arr = map { [ $_ => 0 ] } 1 .. 15;
> $arr[ $_ - 1 ]->[ 1 ] = $_ for 5 .. 10;
> print Data::Dumper->Dumpxs( [ \ @arr ], [ qw{ *arr } ] );'
@arr = (
[
1,
0
],
[
2,
0
],
[
3,
0
],
[
4,
0
],
[
5,
5
],
[
6,
6
],
[
7,
7
],
[
8,
8
],
[
9,
9
],
[
10,
10
],
[
11,
0
],
[
12,
0
],
[
13,
0
],
[
14,
0
],
[
15,
0
]
);
knoppix@Microknoppix:~$
Note that array subscripts are zero-based by default in Perl (and it is a default that you *really* don't want to tinker with).
I hope this is something along the lines of what you are after. If not, have another go at describing your problem more clearly, perhaps with a cut-down data set and the result you are hoping for.
-
Are you posting in the right place? Check out Where do I post X? to know for sure.
-
Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:
<code> <a> <b> <big>
<blockquote> <br /> <dd>
<dl> <dt> <em> <font>
<h1> <h2> <h3> <h4>
<h5> <h6> <hr /> <i>
<li> <nbsp> <ol> <p>
<small> <strike> <strong>
<sub> <sup> <table>
<td> <th> <tr> <tt>
<u> <ul>
-
Snippets of code should be wrapped in
<code> tags not
<pre> tags. In fact, <pre>
tags should generally be avoided. If they must
be used, extreme care should be
taken to ensure that their contents do not
have long lines (<70 chars), in order to prevent
horizontal scrolling (and possible janitor
intervention).
-
Want more info? How to link
or How to display code and escape characters
are good places to start.