#!/usr/bin/perl -w

use strict;
use warnings;

my $IpInfo = [ [ qw(20 74 6 55 56) ] ];

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

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