my %lookup;
$lookup{ \@CBR } = 'CBR';
...

sub my_sub{ 
    my( $aref ) = @_;
    print "Using: $lookup{ $aref } array\n";
    ...
}