allow given/when in Perl >= 5.18