use List::Util qw(min);
my $value = min( $x, $y );