OUTPUT
=================
main::Testing() called too early to check prototype at C:\temp\arr_refernce.pl line 11.
$VAR1 = [
          undef,
          undef,
          undef,
          undef,
          [
            'S',
            'M',
            'R',
            'B'
          ]
        ];
Var1: S Var2: M Var3: R Var4: B
Use of uninitialized value $_ in array dereference at C:\temp\arr_refernce.pl line 14.
Use of uninitialized value $VAR5 in concatenation (.) or string at C:\temp\arr_refernce.pl line 15.
Use of uninitialized value $VAR6 in concatenation (.) or string at C:\temp\arr_refernce.pl line 15.
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: