#!/usr/bin/perl -w
$hog="1";
$i = 0;

while($i++ < 10000000000){
        $hog= $hog .$i . $hog . $hog;
        
        print "STARTTTTTTTTTT ==> $i EEEEEENNNNNDDDDDD\n\n\n\n\n\n\n\n";
}