Select Code to Download

push (@request, ($sysDescr,$sysUpTime));

my @request = ($sysDescr, $sysUpTime);

use strict;
use warnings;

use diagnostics;

use autodie;

#!/usr/bin/env perl -l

...
print "\n";
print 'SAME: $array_ref_1 and $array_ref_1_new and $array_ref_ref->[0]
+';
print "SAME: $array_ref_1 and $array_ref_1_new and $array_ref_ref->[0]
+";

*** $array_ref_1  = \@array ***
$VAR1 = [
...

SAME: $array_ref_1 and $array_ref_1_new and $array_ref_ref->[0]
SAME: ARRAY(0x7fa0f202a628) and ARRAY(0x7fa0f202a628) and ARRAY(0x7fa0
+f202a628)