my @array = qw(1 1 3);
print Dumper \@array;

__END__

$VAR1 = [
          1,
          1,
          3
        ];