sub haromszogKerulet {
    my ($aOladl, $bOldal, $cOldal) = @_;

    return $aOldal+$bOldal+$cOldal;
}