#!/usr/bin/perl
use warnings;

open(FILE, "filename.txt") or die("Unable to open file");

@List = <FILE>;

close(FILE);

foreach $line (@List)
  {
        print ($line+1) - $line);
        print "\n";
}