splice @array,$#array-4,5;

##</code><code>##

    my @poped = splice @array,$#array-4,5;
    my $val0 = $poped[0];