Depending on how the data is, in $IpInfo, you might want to use split to break the data into elements to store in the scalars:
Example

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";
}
[download]