sub array_update

{
  
open (FILE, $statfile) || die "Couldn't open file: $!";
my @statarray = <FILE>;
close FILE;
foreach (@statarray){chomp;}

$metstat1"->configure(-textvariable => \$statarray[0]);
$metstat2"->configure(-textvariable => \$statarray[1]);
$metstat3"->configure(-textvariable => \$statarray[2]);
$metstat4"->configure(-textvariable => \$statarray[3]);
$metstat5"->configure(-textvariable => \$statarray[4]);


$adcpstat1"->configure(-textvariable => \$statarray[5]);
$adcpstat2"->configure(-textvariable => \$statarray[6]);
$adcpstat3"->configure(-textvariable => \$statarray[7]);
$adcpstat4"->configure(-textvariable => \$statarray[8]);