in reply to array splitting

@times = (5, 10, 20, 25, 30, 40, 45, 50, 55, 65, 75, 80, 90);
@times1 = ();
@times2 = ();
$sw = 1;
map {if ($sw == 1) {push (@times1,$_);$sw = 0;} else {$sw = 1;}} @times;
$sw = 1;
map {if ($sw == 0) {push (@times2,$_);$sw = 1;} else {$sw = 0;}} @times;

Don't put off till tomorrow, what you can do today.

In Section Seekers of Perl Wisdom