my $c=(&sample)[2];
print $c;