while (<$fh_in>)
{
   chomp;  #deletes the trailing "new line" line ending
           #this works for files from any OS
   my @array = split(';',$_);
}