#!/usr/bin/perl -w
use Tie::File;
use strict;
 
 
my @pwfile;
 
tie  @pwfile, 'Tie::File', 'pwfile.dat' or die $!;
 
my $user = {
            name => 'Klem Kaddiddlehopper',
            uid => 'kkhopper',
            addr => '123 main street, anywhere, anystate, 12345, USA',
            passwd => 'shhh!'
};
my @fields=qw / name uid addr passwd /;
#
# Add the record!
push @pwfile,join('|',map{ $user->{$_}} @fields );