foreach $line (@works) {
    chomp $line;  # ADD THIS LINE