#!/usr/bin/perl -w
use strict;

#
# Subroutine for reading prev.txt into an array
#

sub readdata {
        open (PH, "prev.txt") || die "Cannot open prev.txt: $!";
        my(@DATA)=<PH>;
        chomp @DATA;
        close (PH);
        return(@DATA);
}

#
# Test reading of prev.txt by printing the array
#

print "@DATA";

#
# Subroutine for writing array into prev.txt
#

sub writedata {
        my(@DATA)=@_;
        open (PH, ">prev.txt") || die "Cannot open prev.txt: $!";
        foreach(@DATA) {
                print PH "$_\n";
        }
        close (PH);
}