Select Code to Download

use strict;
use warnings;
...
my @nums = (3,9,12);
my $foo = min (@nums);
print $foo;

3