#!/usr/local/bin/perl
use strict;
use warnings;
 
sub min {
    my $min = $_[0];
    if ($_[1] > $min) {
        $min = $_[1];
    }
    $min;
}
 
print min(12, 8);