#!/usr/bin/perl

my $domain = 'unknown';

@$domain = ();
print $domain;

push @$domain, 'test';
print $domain;