how to reverse an array without reverse function

@array = qw(a b z c e);

while(@array) {
$last = pop(@array);
push(@array1, $last);
}

print @array1;