open(DB, "</location/db.csv") || Error ('open','file');
while ($line = <DB>) {
  @split_sp_data = split(/,/, $line);
  if ($from =~ /@split_sp_data[1]/) { print qq (<a href="$split_sp_data[0]">$split_sp_data[0]</a>); }
}
close(DB);