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