By default,
split preserves leading empty fields but strips trailing empty fields. You can change that behavior, and preserve trailing empty fields, by using
-1 as the last parameter, like so:
@col = split(",",$a,-1);
See also:
FMTYEWTK about split //