Select Code to Download

use Data::Dumper;

...
  print Dumper \@str ;
  return;
}

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

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