my %hashrow;
@hashrow{ qw[  Date Type Amount Ending_balance ] } = split '&', $_;