sub callbacks_for_tomorrow { my $username = shift or confess 'must supply username'; my $today_sql = callbacks_for_today($username); my $tomorrow_date_str = "DATE_FORMAT( `callback_time` , '%Y-%m-%d' ) = DATE_FORMAT( DATE_ADD(NOW( ), INTERVAL 1 DAY) , '%Y-%m-%d' ) -- date_clause"; my @tomorrow_sql = map (swap_sql($_, 'date_clause', $tomorrow_date_str), @$today_sql); \@tomorrow_sql; }