foreach $checking(@tocheck){
for (keys %checkfrom){
if ($checkfrom{$_} eq $checking){
  #does  
}