$ perl -e'%foo = ("3+5", "something");print keys(%foo),$/'
3+5
$