Select Code to Download

#!/usr/bin/perl
use warnings;
...
    say $register, "\t",
        keys %{ $R{$register} } > 1 ? 'variable' : 'constant';
}