use Data::Dumper;
my $ip1 = qw(172.16.1.2);
my $ip2 = qq(172.16.1.2);
my $ip3 = qw(172.16.1.2 172.16.1.3);
my $ip4 = qq(172.16.1.2 172.16.1.3);
print Dumper($ip1, $ip2, $ip3, $ip4);
__END__
$VAR1 = '172.16.1.2';
$VAR2 = '172.16.1.2';
Useless use of a constant ("172.16.1.2") in void context at - line 4.
$VAR3 = '172.16.1.3';
$VAR4 = '172.16.1.2 172.16.1.3';