perl -F';' -lape 'unshift @F, splice @F, 8, 1; $_ = join ";", @F'