use Data::Dumper;

my @ar = "fred bert";

print Dumper(\@ar);

##</code><code>##

$VAR1 = [
          'fred bert'
        ];