foreach $a (@list) {
    foreach (@list2) {
	push(@list3,$_) if substr($_,0,1) eq "$a";
    }
}