use strict;
use warnings;
use List::Util qw(min);

my @nums = (3,9,12);
my $foo = min (@nums);
print $foo;

##</code><code>##

3