use strict;
my %hoa = ( foo => [0, 1], bar => [2, 3] );
for ( keys %hoa ) {
   print " $_  contains: @{$hoa{$_}}\n";
}