($open_bal,$net_trx,$cash_total,$card_total,$cheque_total,$grand_total)=join "",split ",",substr($$_,1) for (1..6);