Select Code to Download

my @array= (1,2,3,4);
for my $item (@array) {
    pop @array;
    printf "Item: %s Array: %s\n",$item,join(', ', @array);
}

Item: 1 Array: 1, 2, 3
Item: 2 Array: 1, 2