Help for this page
$arr[ ($i - 4) .. $i ]
my $h = $i - 4; if ( $h >= 0 ) { ... my @v = keys %v; return $#v; }