#!/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"
	} 
}

# @jasonwryan wins :)   rs -c';' -C';' -T <file