local ($bak_id)=shift; local ($acc_bal)=shift; #### my ($bak_id)=shift; my ($acc_bal)=shift; #### my $bak_id = shift; my $acc_bal = shift; #### my ($bak_id, $acc_bal) = @ARGV;
## my ($bak_id)=shift; my ($acc_bal)=shift; ##
## my $bak_id = shift; my $acc_bal = shift; ##
## my ($bak_id, $acc_bal) = @ARGV;