Select Code to Download

my @array = (32, "something","something01","01something");
print scalar @array."\n"; #prints 4
...
print +(@array)[1], "\n"; #prints something
print +(@array)[2], "\n"; #prints something01
print +(@array)[3], "\n"; #prints 01something

my $test = '01xxx';
$test += 1;
print "01xxx + 1 is: $test\n"; #prints 2