Select Code to Download

my @array= ( 1..5 );
for( @array ) {
...
4
Last element.
5

my $five= 5;
*array= sub { \@_ }->( 1, 2, $five, 4, $five );
...
4
Last element.
5