>>367
Perlの仕事じゃないな

% awk 'NR>1{print $1-d}{d=$1}' /tmp/file1
1
3094
84560