use Scalar::Util 'dualvar';

my $funny = dualvar 12, 'pancake';

printf "Polly wanna %s every %d days \n", $funny, $funny;
printf "Polly wanna %s every %d days \n", $funny, 0+$funny;

__END__

##</code><code>##

use Contextual::Return;

my $funny = NUM { 12 }
            STR { 'pancake' };

printf "Polly wanna %s every %d days \n", $funny, $funny;
printf "Polly wanna %s every %d days \n", $funny, 0+$funny;

__END__