my $number = $i +1;
$newname = "$ref->{'name'}";
$newname = $newname . 1;