use strict; use warnings FATAL => 'all';

use Data::Dumper;

my @p = ( 0 .. 1 );
my @q = map [ $_ ] , @p;

print Dumper @p;
print "\n";

print Dumper @q;
print "\n";