use 5.10.1;
use strict;
use warnings;

##</code><code>##

#!/usr/bin/perl 

use Modern::Perl;

my(@wt) = (1,2,3,4);
print $wt[2], "\n";