open (PSSWD, "<passwordfile") or die "could not able to open the file" ;
while ($line=<PSSWD>) {
  chomp($line);
  ($uname,$password) = $line = ~ m/username\s+(\S+)\s+(\S+)\s*\S*/;
  print "username: $uname, password: $password\n";
}