Perhaps the following structure would be helpful:

use strict;
use warnings;
use Data::Dumper;

my @list = 1 .. 15;
my @array;
my $i = 1;

while ( my ( $i, $j, $k ) = splice @list, 0, 3 ) {
    push @array, [ [ $i, $j, $k ], [ 44, 55, 66, 22 ] ];
}

for my $arr (@array) {
    print "@{ $arr->[0] }: @{ $arr->[1] }\n";
}

print "\n", Dumper \@array;
[download]

Output:

1 2 3: 44 55 66 22
4 5 6: 44 55 66 22
7 8 9: 44 55 66 22
10 11 12: 44 55 66 22
13 14 15: 44 55 66 22

$VAR1 = [
          [
            [
              1,
              2,
              3
            ],
            [
              44,
              55,
              66,
              22
            ]
          ],
          [
            [
              4,
              5,
              6
            ],
            [
              44,
              55,
              66,
              22
            ]
          ],
          [
            [
              7,
              8,
              9
            ],
            [
              44,
              55,
              66,
              22
            ]
          ],
          [
            [
              10,
              11,
              12
            ],
            [
              44,
              55,
              66,
              22
            ]
          ],
          [
            [
              13,
              14,
              15
            ],
            [
              44,
              55,
              66,
              22
            ]
          ]
        ];
[download]

A reference to a reference to three values from @list and a reference to a four-element list is push onto @array. The for loop iterates through the list of references, and prints their dereferenced values. A dump of @array shows the structure.

Within the for loop, elements can be access as follows:

[ [ $i, $j, $k ], [ 44, 55, 66, 22 ] ]
^ ^  ^   ^   ^    ^ ^   ^   ^   ^
| |  |   |   |    | |   |   |   |
| |  |   |   |    | |   |   |   + - $arr->[1][3]
| |  |   |   |    | |   |   + - $arr->[1][2]
| |  |   |   |    | |   + - $arr->[1][1]
| |  |   |   |    | + - $arr->[1][0]
| |  |   |   |    + - $arr->[1]
| |  |   |   + - $arr->[0][2]
| |  |   + - $arr->[0][1]
| |  + - $arr->[0][0]
| + - $arr->[0]
+ - $arr
[download]

Hopefully this will help: perllol

Why can't you pass the coordinates to sub C?

And do you call sub B, or does sub C call sub B? I think I'm distilling the notion that you want C to call B, am I right? Let's roll with that.

Why would this not work for you?

sub subA {
    # ...
    # generate array;
    # here be dragons, an' arrays an' pushes an' references
    # an' lots of dereferencing happens here, me lad.
    # ...    
    return \@array;
}

sub subB {
    my $chart_widget = shift;
    my $data_aref    = shift;

    $chart_widget->chart( $data_aref ) # or however Tk::Chart be used,
+ matey
}

sub subC {
    my $chart_widget = shift;
    my $data_aref    = shift;
    
    # ...
    # I don't have a clue what be happenin' here, me hearty.
    # ...

    subB($chart_widget, $data_aref);
}
[download]

And from your main code:

my $chart = $mw->Chart( ... );

my $data_aref = subA;
subC($chart, $data_aref);
[download]

sub A
{
...
foreach $key(@some array) # eg: array contains values like Sunday, Mon
+day , Tuesday..etc
{
...    
...    
...
push(@{$key[0]}, #some values);  #create dereferenced array 
push(@{$key[1]}, #some values);  #eg: Monday has  
                 #             @Monday =     ([1,23,4,8,],            
+  
          #                        [12,58,77,9]);
..
..          # what do i do here ?? 
              
}


sub B #to be called by the user after running the sub A for the first 
+time
{
..
print "Enter the day to be plot: ";
$a = <>;  #this value is to be matched to the array name i.e Monday to
+ be plotted, 
..      # once the corresponding array is found , we plot the values  
+  



}
[download]

@a = qw/Mon Tue Wed Thurs/;


foreach $key(@a)
{
push(@$key, $key);    
print Dumper(\@$key);    
}
[download]

#Declare array as 
push(@$key, #some values);
..
..
#The above code will help me to generate different arrays for multiple
+ variables but it does not help me to create a multi-dimensional arra
+y( Note: I cannot use an anonymous array here since i need to reitera
+te the entire loop over several days to measure performance and i cou
+ldnt find a way of pushing elements on to an anonymous array without 
+creating a separate reference for it)


2. #Declare array as 
push(@{$key[0]}, #some values);
..
..
#Alhtough this will help me to get the desired array format , however 
+the most irritating part is that the variable $key is constant ,i.e e
+vn if i iterate it over a loop, only one array ( i.e @key is generate
+d and the reference for all the arrays is the same)
[download]