#!/usr/bin/perl

# open file
open(FILE, "data.txt") or die("Unable to open file");

# read file into an array

@data = <FILE>;

# close file 

close(FILE);

# print file contents

foreach $line (@data)

{
 print $line;

}