#!/usr/bin/perl

use warnings;
use strict;

my %dispatch = (
    ''     => sub { print "Returning" ; exit },
    'BOTH' => sub {
        my $acc_bal = shift;
        .
        if ($acc_bal < 1.0) {
            .
            .
        } else {
            .
            .
        }
    },
    'Cust1|Cust2' => sub {
        my $acc_bal = shift;
        .
        if ($acc_bal < 1.0) {
            .
            .
        } else {
            .
            .
        }
    },
);

my ($bak_id, $acc_bal);

while (1) {
    chomp($acc_bal = <STDIN>);

    foreach my $re (keys %dispatch) {
        next unless $acc_bal =~ /^(?:$re)$/;
        &{ $dispatch{$_} }(chomp <STDIN>);
    }
}
.
.