my (
        $tranType, 
        $tranDate, 
        $tranDesc, 
        $tranAmount, 
        $tranMedium, 
        @extraStuffJustInCase
    ) = split /\,/, @chaseList;
    my ($tranVendor, @restOfDesc) = split /\s/, $tranDesc;