# record 1
$login = "me";
$name = "toadi";
$email = "toadi@toadi.be";
$contract = "SERVICE";

$csv{$login}{name}=$name;
$csv{$login}{email}=$email;
$csv{$login}{contract}=$contract;

# record 2
$login = "u";
$name = "other one";
$email = "other@other.be";
$contract = "Programming";

$csv{$login}{name}=$name;
$csv{$login}{email}=$email;
$csv{$login}{contract}=$contract;

foreach $login ( keys %csv ) {

        print "$csv{$login}{name},$csv{$login}{email},$csv{$login}{reknr},$csv{$login}{contract}\n";

}