use strict;
use warnings;

# Declare
my ($website_1, $website_2, $website_3);
my @sites;
my %siteHash;

# Populate vars
$website_1 = 'www.site1.com';
$website_2 = 'www.site2.com';
$website_3 = 'www.site3.com';

# Populate array
push @sites, "www.site$_.com" for 1 .. 3;

# Populate hash
$siteHash{"website_$_"} = "www.site$_.com" for 1 .. 3;

# use individual sites
print "Site 1 is $website_1\n";
print "Site 1 is $sites[0]\n";
print "Site 1 is $siteHash{website_1}\n\n";

# use site collections
print "Site $_\n" for ($website_1, $website_2, $website_3);
print "\n";
print "Site $_ is $sites[$_-1]\n" for 1 .. 3;
print "\n";
print "Site $_ is $siteHash{$_}\n" for sort keys %siteHash;