use strict;
use Net::POP3;

$|++;

my %user = ( a => 1 , b => 2, c => 3);

my $host  = "host.net";
for my $key ( keys %user){
  my $pop   = Net::POP3->new($host);
  print "Working on $key...\n";
  my $msg = $pop->login( $key, $user{$key} );
  print "$key: $msg\n";
  $pop->quit;
}