Select Code to Download

use 5.10.1;
use strict;
use warnings;

#!/usr/bin/perl 

...

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