List::Util does it for you:

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

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

Prints:

3
[download]