use strict;
use warnings;

my $lastValue = <DATA>;
chomp $lastValue;

while (<DATA>) {
    chomp;
    print $_ - $lastValue, "\n";
    $lastValue = $_;
}

__DATA__
1
76
34
6
12
5