print "- $_\n" for grep {/a/} @data;