in reply to Canon concerning coderef calls?

main->can( $_ )->( $_ ) for (qw( one two three ));