use strict; use warnings; my $users = [(0..7)]; print $#$users; #### 7