use Data::Dumper;
print Dumper [ $bar{'one'}, $foo{'one'} ];