my $branches = GetBranches();
my @branches;
foreach my $branchcode (keys %$branches) {
foreach my $branchcode (sort keys %$branches) {
push @branches, {
value => $branchcode,
label => $branches->{$branchcode}->{branchname},
-