@net = mask($a,$b);

sub mask
{
<<code>>
return @base;
}