my $i = 0;
$array[$i++] = $_ for ( 5, 6, 7, 8 );