Select Code to Download

my @data = (1..8000000);
foreach my $x (@data) { push @arr, ($x+2); }
@arr1 = map { $_+ 2 } @data;
@arr2 = map { push @arr2, ($_+ 2) } @data;