#!/usr/bin/perl -wn
BEGIN{$num=0};
print ++$num,' ',$_;
END{print "\nDo some processing outside of the loop.\n"}