sub _{ print $_[0];return 'p'}