print "@main::bla\n";
# oder
print $main::bla[1][0];