use Devel::Peek;
use strict;
no warnings "numeric";

sub xx {
        my $arg = shift;
        my $const = "";
        print "(" . ($arg & $const) . ")\n";
}

xx("ff");
xx(7);
xx("ff");