#!/usr/bin/perl

use strict;
use warnings;

my ($DIcas_text, @HR, $s);

$DIcas_text = "%s %s %s %s";
@HR = qw(a b c);
$s = sprintf($DIcas_text, @HR);

$DIcas_text = "%s %s %s";
@HR = ('a', undef, 'c');
$s = sprintf($DIcas_text, @HR);

$DIcas_text = undef;
@HR = qw(a b c);
$s = sprintf($DIcas_text, @HR);

##</code><code>##

Use of uninitialized value in sprintf at /tmp/u.pl line 10.
Use of uninitialized value $HR[1] in sprintf at /tmp/u.pl line 14.
Use of uninitialized value $DIcas_text in sprintf at /tmp/u.pl line 18.