#!/usr/bin/perl

open(INPUT, "file.dat") || die "couldn't open file: $!";
@data = <INPUT>;
close(INPUT);

foreach $i (0 .. $#data) {

	$entry = @data[$i] ; 
	chomp($entry) ; 
	print "data $i: $entry\n" ;

}

exit ;