Select Code to Download

#!/usr/bin/perl
use strict;
...
foreach $_ (0 .. 5) {
    print join("\n", ("hello[$_]" x $_)), "\n";
}

Test 4:

...
hello[3]hello[3]hello[3]
hello[4]hello[4]hello[4]hello[4]
hello[5]hello[5]hello[5]hello[5]hello[5]