prompt> perl -le 'my $pid = fork; my $x = [$pid]; print "$x->[0] -- $x"'
0 -- ARRAY(0x80d11ec)
24694 -- ARRAY(0x80d11ec)
prompt>