sub resp { $a="abcdefg";\$a }

while (${&resp} =~ /(.)/g) {
  print $1;
}