my $mtime;
my $line;
my $data;

#auf $data kann man getrost zugreifen mtime hat sich nicht geaendert
if(($mtime == (stat("file.dat"))[9]) && (defined($mtime))) {
  #.... Verarbeitung von $data  

#erstes mal einlesen oder mtime hat sich geaendert
} else {
  $data = '';
  open(FILE, "< file.dat"); 
  while($line = <FILE>) {
    $data .= $line;
  }
  close(FILE);

  $mtime = (stat("file.dat"))[9];
}