Select Code to Download

use warnings;
use strict;
...
my @list = (4, 7, 1, 3, 2, 9);
my $second = (sort @list)[-2];
print $second;

7