18 lines
239 B
Perl
18 lines
239 B
Perl
|
#!/usr/bin/perl
|
||
|
|
|
||
|
|
use strict;
|
||
|
|
use warnings;
|
||
|
|
|
||
|
|
my @array = qw( A B C D E );
|
||
|
|
|
||
|
|
|
||
|
|
my $arrayReference = \@array;
|
||
|
|
|
||
|
|
sub returnReference
|
||
|
|
{
|
||
|
|
return \@array;
|
||
|
|
}
|
||
|
|
|
||
|
|
|
||
|
|
print( "\${returnReference()}[ 1 ] = ${returnReference()}[ 1 ]\n\n" );
|