thispig

#!/usr/bin/perl

use strict;

while(<>) {
    my @line = split;
    $line[0] -= 100000;
    print $line[0];
    for (1..@line-1) {
	print " $line[$_]";
    }
    print "\n";
}
