#!/usr/bin/perl -anF';' 

# transpose lines, see perldsc(1)

push @rows, [@F];

END{
	for $i ( 0..scalar( @{ $rows[0] } ) - 1 ) {

		for $rr (@rows) {
			$rr->[$i] =~ s/\n$//;
			print $rr->[$i], ";"
		}
		print "\n"
	}
}