Select Code to Download

use warnings;
use Data::Dumper;
...
    print "Var5: $VAR5\tVar6: $VAR6\tVar7: $VAR7\tVar8: $VAR8\n";
}

$VAR1 = [
          [
...
Var1: S Var2: M Var3: R Var4: B
Var5: S Var6: M Var7: R Var8: B