新しくperlで標準で欲しい関数は？

こういう事したい　if $sita < $naka < $ue;