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