use YAML;
my @pwlist = Load(join '', <DATA>);

# Print as perl structure
use Data::Dumper;
print Dumper(\@pwlist);

__DATA__
# comments ignored
user: test
passwd: prrft5142
---
user: fred
passwd: fredpw

##</code><code>##

$VAR1 = [
          {
            'passwd' => 'prrft5142',
            'user' => 'test'
          },
          {
            'passwd' => 'fredpw',
            'user' => 'fred'
          }
        ];