perl -MText::CSV=csv -e 'for $a (@{csv(in=>"input.csv")})
    { csv(in=>[ map[@$a,$_],@{csv(in=>\pop@$a,sep=>";",
    allow_whitespace=>1)->[0]} ]) }'