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__