my $val = $_[0] + 1; 
    for ($k = 1 ; $k < $val ; $k++){ $i = $i.$sym; }