Select Code to Download

my %lookup;
$lookup{ \@CBR } = 'CBR';
...
    print "Using: $lookup{ $aref } array\n";
    ...
}

sub my_sub{
    my( $aname, $aref, $size, $name, $bref, $size ) = @_;
    print "Using $aname and $bname\n";
    ...
}