in reply to Perl one-liner for array at bash shell

Or use Text::CSV... not as short but it'll handle different input formats better 
perl -MText::CSV=csv -e 'for $a (@{csv(in=>"input.csv")})
    { csv(in=>[ map[@$a,$_],@{csv(in=>\pop@$a,sep=>";",
    allow_whitespace=>1)->[0]} ]) }'

[download]

In Section Seekers of Perl Wisdom