#! /usr/bin/perl
#file: call_stuff.pl

use strict;
use warnings;
use Tie::File;
$|=1;


for(my $i=1;$i<=10;$i++){
    my @array=();
    tie(@array,'Tie::File',"my_file.txt");

    $array[1]="this is a line!";
    $array[2]="woah, another line";
    $array[3]="more lines??";
    $array[4]="and so on....";
    $array[0]="this is the first line. it is number $i. haha!";
    untie(@array);

    system('./plet_test.pl my_file.txt &');
}

exit 0;