Select Code to Download

use warnings;
use Data::Dumper;
...
    my ($VAR5,$VAR6,$VAR7,$VAR8) = @{$_}; 
    print "Var5: $VAR5\tVar6:$VAR6\tVar7: $VAR7\tVar8: $VAR8\n";
}

OUTPUT
=================
...
Use of uninitialized value $VAR7 in concatenation (.) or string at C:\
+temp\arr_refernce.pl line 15.
Use of uninitialized value $VAR8 in concatenation (.) or string at C:\
+temp\arr_refernce.pl line 15.
Var5:   Var6:   Var7:   Var8:

Expecting output
==============
Var1: S    Var2: M    Var3: R    Var4: B
Var5: S    Var6: M    Var7: R    Var8: B