my @columns = ('one', 'two', 'three', 'four');
my $ref = \@columns;
print @$ref;