#!/usr/bin/perl

print ++$i, " $_" for <>;