#!/usr/bin/perl 

use Modern::Perl;

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