Select Code to Download

use strict;
use Data::Dumper;
...
}
print "Case 3...\n";
print Dumper(@array);

Case 1...
$VAR1 = undef;
...
Case 3...
$VAR1 = '1 . 0';
$VAR2 = '1 . 1';