Array Perl

#!/usr/bin/perl
use warnings;
use strict;
print (('A', 'v', 'm', 'p')[2]);
print "\n";