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

##</code><code>##

use Data::Dumper;

use strict;
use warnings;

my $IpInfo = [
          [
            '20',
            '74',
            '6',
            '55',
            '56'
          ]
        ];
my ( $id, $area, $cpu, $ip, $ip2 ) = $IpInfo->[0];
print Dumper($id);

##</code><code>##

$VAR1 = [
          '20',
          '74',
          '6',
          '55',
          '56'
        ];