while($input = <DATA>) {
@fields = split(" ",$input);

print "\n$fields[1] => $fields[2]";
};


__DATA__
01/03/2008 angie 53
01/03/2008 kristen 95
01/03/2008 MaryT 123
01/03/2008 Nicole 27
01/03/2008 sylvarius 33
01/03/2008 yasmin 67
02/03/2008 angie 2
02/03/2008 kristen 121
02/03/2008 MaryT 81
02/03/2008 Nicole 47
02/03/2008 sylvarius 15
02/03/2008 Tanya 22
02/03/2008 yasmin 60
03/03/2008 angie 3
03/03/2008 donna 78
03/03/2008 Kimberly 9
03/03/2008 kristen 257
03/03/2008 MaryT 181