#!/usr/bin/perl
my @m = ('a','b');
my $i = 0;
print @m[$i,$i++];