sub get_schoolname( $ )
{
   my $id = $_[0];
   my $schoolname;


   #get groupname from current database  
   open(SCHOOLDATA,"school_data.pdt") or die "Can't open school data file: $!";

   while ( <SCHOOLDATA> )
   {
      

      chomp($_);
 
      @split_record = split( /\|/ , $_ );
      
print $split_record[0];

      if( $split_record[0] eq $id )
      {    
   	   $schoolname = $split_record[1];
      }

		
   }

   close( SCHOOLDATA );

   return( $schoolname );

##</code><code>##

1|northport hs4|123|image|usd|
2|bunny werks|1234312|image|usd|
3|northport hs5|123|image|usd|
4|northport hs6|123|image|usd|