Array Perl

  1. Home
  2. Perl
  3. Array
  4. Mulitple indexing
#!/usr/bin/perl -w
use strict;
my $mone; 
my $mtwo;
($mone, $mtwo) = (1, 3);
print (("A ", "B ", "C ", "D ")[$mone, $mtwo]);
print "\n";