for (@yourarray) {
	my @ary = (split/ /, $_, 5)[0 .. 4];
}