Select Code to Download

my ( $id, $area, $cpu, $ip, $ip2 ) = @{$IpInfo->[0]};

use Data::Dumper;

...
        ];
my ( $id, $area, $cpu, $ip, $ip2 ) = $IpInfo->[0];
print Dumper($id);

$VAR1 = [
          '20',
...
          '55',
          '56'
        ];