foreach $key(keys %h)
{
push(@arr,$$h{$key});