sub abc {
  my ($file) = @_;
  hier wird etwas berechnet und in $result gespeichert...

  open(FILE,">$file") or die $!;
  print FILE $result;
  close FILE;
}

sub def {

  my ($file) = @_;
  hier wird etwas berechnet und in $result gespeichert...

  open(FILE,">$file") or die $!;
  print FILE $result;
  close FILE;
}

sub ghi {

  my ($file) = @_;
  hier wird etwas berechnet und in $result gespeichert...

  open(FILE,">$file") or die $!;
  print FILE $result;
  close FILE;
}

# Haupt-Teil des Programms

hier wird etwas gemacht ......
hier auch....

abc($file1);

def ($file2);

ghi($file3);