my %sites;
open (INFILE, "<sites.txt");
#data from file looks like this:
#sitename|siteaddress|status|comments
 while (<INFILE>) {
  my($name, @status) = split/|/;
  $sites{$name} = @status;
}
close (INFILE);