DB<110> $a=3
 => 3

  DB<111> grep /^a/,keys %main::
 => ("a", "attributes::")