my $len = length $str;
for(my $i = 1; $i <= $len; $i++) {
 print substr($str, 0, $i)
}