for my $line (@l){
    chomp $line;    # Remove the newline from the end
    print $line . " - processed by 'trenchwar'\n";   # Add a little content to each line
}