Select Code to Download

sub Testing {
    my ($VAR5,$VAR6,$VAR7,$VAR8) = @{$_[0]}; 
    print "Var5: $VAR5\tVar6:$VAR6\tVar7: $VAR7\tVar8: $VAR8\n";
}