# extract(@data)
# becomes
map [ get_date($_), $_ ], @data