VG
Size: a a a
VG
MA
VG
VG
MA
VG
АК
my $x = [7];
print( ($x) ."\n");
print( (($x)->[0]) ."\n");
print( ((''.$x)->[0]) ."\n");
print( (("$x")->[0]) ."\n");
P
my $x = [7];
print( ($x) ."\n");
print( (($x)->[0]) ."\n");
print( ((''.$x)->[0]) ."\n");
print( (("$x")->[0]) ."\n");
АК
no strict "refs";
my $x = [7];
print( ($x) ."\n");
print( (($x)->[0]) ."\n");
print( ((''.$x)->[0]) ."\n");
print( (("$x")->[0]) ."\n");
P
no strict "refs";
my $x = [7];
print( ($x) ."\n");
print( (($x)->[0]) ."\n");
print( ((''.$x)->[0]) ."\n");
print( (("$x")->[0]) ."\n");
АК
MA
АК
perl -e "$x=[7];print("$x"->[0])"
7
VG
W
MA
DF
MA
DF
MA