#!/usr/bin/perl 
use Modern::Perl;

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