use DateTime;
my $one_year = DateTime->now->subtract( years => 1 );
my $ymd = $one_year->ymd("");

# in der datenbankabfrage:
my $sth = $dbh->prepare("SELECT ... WHERE date < ?");
$sth->execute($ymd);