#!/local/bin/perl -w

use strict;
use Data::Dumper;
my @persons;

&add_person('gam', 
	    'Geir', 
	    'Amdal', 
	    '22 85 29 82', 
	    '92 61 16 42',
	    'geir.amdal@usit.uio.no',
	    'geira@ifi.uio.no',
	    '5. etasje, F3B');

print Dumper(@persons);

sub add_person {
  my ($un, $fn, $en, $pn, $mob, $mail, $msn, $off) = @_;
  my %person;
  $person{'username'} = $; 
  $person{'firstname'} = $; 
  $person{'lastname'} = $; 
  $person{'phone'} = $; 
  $person{'mobile'} = $; 
  $person{'email'} = $; 
  $person{'msn'} = $; 
  $person{'office'} = $; 
  #$person{''} = $; 
  
  push(@persons, %person);
}