my @x;
foreach ( 0..9 ) { push @x, $_ };

my @x;
@x = grep 1, 0..9;

my @x;
@x = map $_, 0..9;