sub asub ( $ace, $deuce?, $trey? ) {
    say "$ace $deuce $trey";
}

use Test;
plan 1;

{
    sub asub( $ace, $deuce?, $trey? ) { 'asub' };

    is asub(1), 'asub', 'lexically hiding works';
}