#!/usr/bin/perl

use strict;
use warnings;

$counter = 0;

use vars qw($counter);

open (INPUT, "< data")
     or die "Couldn't open data file for reading: $!\n";

while(<INPUT>) {
  my @a = split;               # split record into fields
  $counter++;                  #increment counter
  print "Value($counter) = $_\n" for @a; # print out all fields
  print "\n";                  # blank line between "records"
}

close (INPUT);