#!/usr/local/bin/perl

open (MASTER, "master.dat") || die ("Can't open master file. $!\n");

while ($line = <MASTER>){
   my($studentID, $lastName, $firstName, $gender) = split (/,/, $line);
   print "$firstName $lastName\'s student number is: $studentID\n";
}