foreach my $line (@proglines) {
    print "\t$line\n";
}