use Data::Dumper;
use strict;
use warnings;
my $IpInfo = [
           [
            '20',
            '74',
            '6',
            '55',
            '56'
           ]
            ];

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

 print "$id\t$area\t$cpu\t$ip\t$ip2\n";