First of all please reformat your post seconding Writeup Formatting Tips

Then go to read perldsc to see many recipes about complex datastructures

The HashesOfArrays section has well written example about the generation and access of such datastructures.

L*

G'day Nansh,

"I need to get values from hash and need to push that in an array. ... $hash_one{$name}=@arr;"

That's an assignment to a hash: you've got it the wrong way around:

push @arr, $hash_one{$name};
[download]

a quick example under the Perl debugger:

  DB<1>  %hash = ( jan => 1, feb => 2, mar => 3);

  DB<2> push @array, $hash{$_} for keys %hash;

  DB<3> x \@array;
0  ARRAY(0x20275150)
   0  1
   1  3
   2  2
[download]

push @array, $hash{$_} for keys %hash;

That will work (as shown) but to me seems very unwieldy when we could use values instead:

push @array, values %hash;
[download]

Does using for and keys buy you anything here?

You're right, hippo++. I used that construct for pedagogical purpose because I thought at the time that looping over the keys to pick up the values was showing in a better way what's going on, but, thinking again about it, it's true that using values or keys is just the the same idea after all, and that using values makes it possible to use a simpler syntax, be is in a for loop as my post above or, even better, in a direct array assignment.

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

my @array = ();

my %hashcont = ( first => 0, second => 5, last => 8 );

push( @array, \%hashcont );

my $hash_ref = $array[0];
my %hash_data = %{$hash_ref};
print "$hash_data{first}  $hash_data{second}  $hash_data{last}\n";
[download]

Nansh: I find your OPed question a bit vague, but I think the answers I've seen so far are probably pretty close to the mark.

However, it occurs to me that you might be thinking about a slice:

c:\@Work\Perl\monks>perl -wMstrict -le
"use Data::Dump qw(dd);
 ;;
 my @arr = qw(one two three);
 ;;
 my %hash;
 @hash{ qw(uno dos tres) } = @arr;
 dd \%hash;
"
{ dos => "two", tres => "three", uno => "one" }
[download]