my ($x,$y,$z) = ('x','yy','zzz');
for my $val ($x,$y,$z) {
    $val = $val . length($val);
}
print "$x/$y/$z\n";  # prints "x1/yy2/zzz3"