my @col = split /;/; push @col, '' for @col .. 2; print join ';', @col;