Select Code to Download

use Data::Dumper;
$Data::Dumper::Indent = 0;
...
    return ;
}

$VAR1 = ['A',-4,'B','B',-4,'C','C',-4,'A','A',-4,'B'];

$VAR1 = ['D',-3,'E'];  # from $aref1
$VAR1 = ['A',-4,'B',-4,'C',-4,'A',-4,'B']; # from $aref2