my @array;
$i=0;
while($i<5)
{
        push(@array,$i);
        $i++;
}
print join("|",@array);