sub getSubjects($)
{
my $ref_sRecord = $_[0];
my @aSubNos = $$ref_sRecord =~ m/<subno>(.+?)<\/subno>/sig;
....
}