#!/usr/local/bin/perl5 # prog9 $i = 1; open(IN, "DataFile"); while (<IN>) { $i++; print ($i, ", ", $_); }