my $iter = upto( -2, 2 );

while ( my ( $ele ) = $iter->() ) { 
   say $ele;
}