#-------------------------------------------------------#
#-------------------------------------------------------#
sub get_filecontent
{
  my @temp_data;
  open (TEMPFILE,"$_[0]");
  @temp_data = <TEMPFILE>;
  close (TEMPFILE);
  return( @temp_data );
}



#-------------------------------------------------------#
#-------------------------------------------------------#
sub get_fileRef
{
  my ($fname, $ref_dat) = @_;
  open (TEMPFILE,"$fname");
  @{$ref_dat} = <TEMPFILE>;
  close (TEMPFILE);
}