my @IpInfo = qw{
		20,74,6,55,56
		10,20,30,40,50
		100,200,300,400,500
		};
foreach my $element (@IpInfo) {
	my ( $id, $area, $cpu, $ip, $ip2 ) = split(/,/,$element);
	print "id: $id\tarea: $area\tcpu: $cpu\tip: $ip\tip: $ip2\n";
}