#!/usr/bin/perl -w
use strict;

open my $config, '+<', 'stanza' or die "stanza: $!\n";
my @all = <$config>;
seek $config, 0, 0;
splice @all, -1, 0, "\tMy new data\n";
print $config @all;
close $config;