du könntest damit anfangen, gleich als erstes
chomp(my @suffix = <$suffix>);
zu machen und das chomp aus der schleife rausnehmen.
desweiteren überlege, ob es möglich ist, die suffixes in eine regex zu packen und nur einen match zu machen.