my @subfoos = grep{m/$var/} @foos;