Select Code to Download

my @IpInfo = qw{
        20,74,6,55,56
...
    my ( $id, $area, $cpu, $ip, $ip2 ) = split(/,/,$element);
    print "id: $id\tarea: $area\tcpu: $cpu\tip: $ip\tip: $ip2\n";
}