$VAR1 = [ 1, 1, 3 ]; #### my @array = qw(1 1 3); print Dumper \@array; __END__ $VAR1 = [ 1, 1, 3 ];