foreach my $to_delete (@ids)
{
   $to_delete =~ s/Message\-id:\s+//i;
   $to_delete =~ s/<//g;
   $to_delete =~ s/>//g;
   print "trying to delete $to_delete<br>";
   $pop->Delete($to_delete);
}
  $pop->Close();