my %hash = ( A => [1,2], 
              B => [4,6]); 
while (my ($k,$v)=each %hash){
   print  qq ($k:  @$v\n)
}

-- Output---
A:  1 2
B:  4 6