#format site name for use with hashes
                $_ = $site;
                $_ =~ s/-//g;
                $_ =~ s/\.//g;
                my $username = $username{$_};

##</code><code>##

my %username = (
        "site1.com" => "usernam1",
        "site2.com" => "usernam2",
        "site3.com" => "usernam3");