foreach (keys $bla[0]){ print $_ . "\n"; }