foreach $workerbee($doc->getElementsByTagName('CathStaff'))
		{
			
			print "Staff = $s1, $s2\n";
			$s1 = $workerbee->getElementsByTagName('LastName')->item(0)->getFirstChild->getNodeValue;
			$s2 = $workerbee->getElementsByTagName('FirstName')->item(0)->getFirstChild->getNodeValue; 
			$s3 = $workerbee->getAttribute('Role');
			@staff = ($s1,$s2);
			print "Staff = $s1, $s2\n";
			my $arrayref = \@staff;
			$staff_set{$s3} = $arrayref;
			
			
		
			
		}


##</code><code>##

!/usr/bin/perl -w
use XML::DOM;
use CathRecord;
### Create New Object

my $file  = "H:/My Documents/files/mfrTESTa.XML";
my $obj = CathRecord->new();
my $ref = CathRecord::CamPatData($obj,$file);

print"\n";
my $hashref = $ref->{STAFF};

foreach my $inst(keys %$hashref)
{
	my $aih = $$hashref{$inst};
	print "$inst: @$aih\n";

	
}

##</code><code>##

Staff = Joicelan, Rob
Staff = Zdoctor, test
Staff = Zdoctor, test
Staff = Smith, Fred
Staff = Smith, Fred
Staff = Jones, Bill
Staff = Jones, Bill
Staff = Nelson, Jim
Staff = Nelson, Jim
Staff = Fellowlast, Fellowfirst
Staff = Fellowlast, Fellowfirst
Staff = fellowsecond, fred
Staff = fellowsecond, fred
Staff = rusoo123456789012, mike56789012345

Circ: rusoo123456789012 mike56789012345
Recording: rusoo123456789012 mike56789012345
Fellow: rusoo123456789012 mike56789012345
Scrub: rusoo123456789012 mike56789012345
Assisting_MD: rusoo123456789012 mike56789012345
Other: rusoo123456789012 mike56789012345
Rad: rusoo123456789012 mike56789012345
Physician: rusoo123456789012 mike56789012345