I guess that with the -w switch and use strict, you could have save yourself some trouble!

@array=split( /-/, $sites); # from perldoc, it seems better to use a p
+attern rather than a string
if ($array[0] eq "three") # $array0 != $array[0]
{
print "three ";
}
if ($array[1] eq "seven")
{
print "seven ";
}
[download]

-- 
PerlMonger::Paris(http => 'paris.pm.org');
[download]