#!/usr/bin/perl
use warnings;

my @sites = (undef, "a", "b");
my $sitecount = 1;

while (defined $sites[$sitecount]) {
   # ...
   $sitecount++;
}