#!/usr/bin/perl
use warnings;
use strict;
use feature qw{ say };

my %R;
while (<<>>) {
    chomp;
    my ($register, $value) = split /,\s*/;
    ++$R{$register}{$value}
}
for my $register (keys %R) {
    say $register, "\t",
        keys %{ $R{$register} } > 1 ? 'variable' : 'constant';
}