$ perl -le 'printf "%10s %s\n",$_,prototype("CORE::$_")//"undef"
  for qw/pop shift map grep chomp lc localtime cos/'
       pop ;\@
     shift ;\@
       map undef
      grep undef
     chomp undef
        lc _
 localtime ;$
       cos _