in reply to Read And modify a series

This node falls below the community's minimum standard of quality and will not be displayed.

Replies are listed 'Best First'.
Re^2: Read And modify a series
by Anonymous Monk on May 26, 2015 at 12:14 UTC 
    my $a;
$a = unshift(@array);
while ($a == 1) $a = unshift(@array);
if (defined($a)) unshift @array, $a;

    [download]

    The first two unshifts should be shifts. You've been advised plenty of times to test code before posting; the very least you could do is proofread it.

[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom