($d,$m,$y) = split /-/, $date;
$dv1 = $d+31*$m+365*$y;
($d,$m,$y) = split /-/, $date_from_db;
$dv2 = $d+31*$m+365*$y;

if ($dv1 < $dv2) {
	something;
	...
	...
	done;
}