print map {$_->()} grep {/::_/} values %SAS::;