use Data::Dumper;
print Dumper($branch);
print Dumper($selbranch);