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