{
  no strict 'refs';
  local $_ = "abcdefghijklmnopqrstuvwxyz"; # or $string
  $$_ = $_ for split //;
}

print $c; #prints letter 'c' to the screen