Array Perl

  1. Home
  2. Perl
  3. Array
  4. Array Slices
# Array slices
@names=('A', 'B', 'C', 'D' );
@pal=@names[1,2,3];  
print "@pal\n\n";
($friend[0], $friend[1], $friend[2])=@names;
print "@friend\n";