use strict;
use warnings;

my ($IP_ADDRESS, @REALM1); 

@REALM1 = qw(alpha beta gamma);
$IP_ADDRESS = @REALM1;
print "$IP_ADDRESS\n";

@REALM1 = qw(alpha);
$IP_ADDRESS = @REALM1;
print "$IP_ADDRESS\n";

my $REALM1;

$REALM1 = q{alpha};
$IP_ADDRESS = $REALM1;
print "$IP_ADDRESS\n";