use warnings;

@site_array = {"tmp1","tmp2","tmp3"};
foreach $site (@site_array)
{
  print $site;
}
__END__
Odd number of elements in anonymous hash at - line 3.
HASH(0x225f14)