string @lines;

for (long $idx = 0;$idx < @lines.count;$idx++) {
    $lines[$idx].chomp;
    if ($lines[$idx] =~ m/Hello/) {
        $lines[$idx] .= " - World\n";
    }
    STDOUT->print($lines[$idx]);
}